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 (file)
--- 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);