From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 19 Jan 2006 02:32:06 +0000 (+0000)
Subject: Fix another concatenated filepath in a test for Digest::SHA.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=290ae2ddc37d23442f71f6bbb43d3a665ab6e766;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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]);