Fix another concatenated filepath in a test for Digest::SHA.
authorSteve Peters <steve@fisharerojo.org>
Thu, 19 Jan 2006 02:32:06 +0000 (02:32 +0000)
committerSteve Peters <steve@fisharerojo.org>
Thu, 19 Jan 2006 02:32:06 +0000 (02:32 +0000)
p4raw-id: //depot/perl@26911

ext/Digest/SHA/t/6-dump-load.t

index d60cb9a..2373a20 100644 (file)
@@ -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]);