diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-01-19 02:32:06 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-01-19 02:32:06 +0000 |
| commit | 290ae2ddc37d23442f71f6bbb43d3a665ab6e766 (patch) | |
| tree | 8a948dbfc0edc1168c28272537fef303ed811362 /ext | |
| parent | 60f1f59acdc45e401cf7a6c611af055895970392 (diff) | |
| download | perl-290ae2ddc37d23442f71f6bbb43d3a665ab6e766.tar.gz | |
Fix another concatenated filepath in a test for Digest::SHA.
p4raw-id: //depot/perl@26911
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Digest/SHA/t/6-dump-load.t | 3 |
1 files changed, 2 insertions, 1 deletions
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]); |