Fix another concatenated filepath in a test for Digest::SHA.

p4raw-id: //depot/perl@26911

diff --git a/ext/Digest/SHA/t/6-dump-load.t b/ext/Digest/SHA/t/6-dump-load.t
index d60cb9a..2373a20 100644 (file)
--- a/ext/Digest/SHA/t/6-dump-load.t
+++ b/ext/Digest/SHA/t/6-dump-load.t
@@ -43,7 +43,8 @@ for (my $i = 0; $i < @sharsp; $i++) {
                my $state;
                my $file;
                my $filename;
-               $filename = dirname($0) . "/state/state.$ext[$i]";
+               $filename = File::Spec->catfile(dirname($0), 
+                   "state", "state." . $ext[$i]);
                $file = File::Spec->canonpath($filename);
                unless ($state = Digest::SHA->load($file)) {
                        $state = Digest::SHA->new($ext[$i]);