From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 18 Jan 2006 13:32:09 +0000 (+0000)
Subject: Digest::SHA's t/2-nist-sha-oo.t has some path related problems on
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f397494d2e5c4344bda444a704ca9e81d71a61b;p=p5sagit%2Fp5-mst-13.2.git

Digest::SHA's t/2-nist-sha-oo.t has some path related problems on
VMS as well.

p4raw-id: //depot/perl@26900
---

diff --git a/ext/Digest/SHA/t/2-nist-sha-oo.t b/ext/Digest/SHA/t/2-nist-sha-oo.t
index 7af2edb..e0e363b 100644
--- a/ext/Digest/SHA/t/2-nist-sha-oo.t
+++ b/ext/Digest/SHA/t/2-nist-sha-oo.t
@@ -30,7 +30,7 @@ ok(Digest::SHA->new($NSA), undef);
 
 	# test OO methods using first two SHA-256 vectors from NIST
 
-my $temp = dirname($0) . "/oo.tmp";
+my $temp = File::Spec->catfile(dirname($0), "oo.tmp");
 my $file = File::Spec->canonpath($temp);
 open(FILE, ">$file");
 binmode(FILE);