From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 13 Oct 2001 23:20:11 +0000 (+0000)
Subject: Use File::Spec (needs Thomas Wegner's upcoming patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31022a5a11db70290d5b3f56cd0dc18a4dd805d8;p=p5sagit%2Fp5-mst-13.2.git

Use File::Spec (needs Thomas Wegner's upcoming patch
for File::Spec::Mac::catfile)

p4raw-id: //depot/perl@12433
---

diff --git a/lib/h2xs.t b/lib/h2xs.t
index 8ec241a..912edae 100644
--- a/lib/h2xs.t
+++ b/lib/h2xs.t
@@ -16,7 +16,7 @@ BEGIN {
 # use strict; # we are not really testing this
 use File::Path;  # for cleaning up with rmtree()
 use Test;
-
+use File::Spec;
 
 my $extracted_program = '../utils/h2xs'; # unix, nt, ...
 if ($^O eq 'VMS') { $extracted_program = '[-.utils]h2xs.com'; }
@@ -162,7 +162,7 @@ while (my ($args, $version, $expectation) = splice @tests, 0, 3) {
   }
 
   foreach my $leaf ("$name.pm", 'Makefile.PL') {
-    my $file = ($^O eq 'MacOS') ? ":$name:$leaf" : "$name/$leaf";
+    my $file = File::Spec->catfile($name, $leaf);
     if (ok (open (FILE, $file), 1, "open $file")) {
       my $match = qr/use $version;/;
       my $found;