From 290ae2ddc37d23442f71f6bbb43d3a665ab6e766 Mon Sep 17 00:00:00 2001 From: Steve Peters Date: Thu, 19 Jan 2006 02:32:06 +0000 Subject: Fix another concatenated filepath in a test for Digest::SHA. p4raw-id: //depot/perl@26911 --- ext/Digest/SHA/t/6-dump-load.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'ext') diff --git a/ext/Digest/SHA/t/6-dump-load.t b/ext/Digest/SHA/t/6-dump-load.t index d60cb9acd6..2373a204ed 100644 --- 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]); -- cgit v1.2.1