From 31022a5a11db70290d5b3f56cd0dc18a4dd805d8 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 13 Oct 2001 23:20:11 +0000
Subject: [PATCH] Use File::Spec (needs Thomas Wegner's upcoming patch for
 File::Spec::Mac::catfile)

p4raw-id: //depot/perl@12433
---
 lib/h2xs.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.7.4