# 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'; }
If you intend this module to be compatible with earlier perl versions, please
specify a minimum perl version with the -b option.
+Writing $name/ppport.h
Writing $name/$name.pm
Writing $name/$name.xs
Writing $name/fallback.c
EOXSFILES
"-f -n $name -b $thisversion", $], <<"EOXSFILES",
+Writing $name/ppport.h
Writing $name/$name.pm
Writing $name/$name.xs
Writing $name/fallback.c
EOXSFILES
"-f -n $name -b 5.6.1", "5.006001", <<"EOXSFILES",
+Writing $name/ppport.h
Writing $name/$name.pm
Writing $name/$name.xs
Writing $name/fallback.c
EOXSFILES
"-f -n $name -b 5.5.3", "5.00503", <<"EOXSFILES",
+Writing $name/ppport.h
Writing $name/$name.pm
Writing $name/$name.xs
Writing $name/fallback.c
EONOXSFILES
"-f -n $name $header -b $thisversion", $], <<"EOXSFILES",
+Writing $name/ppport.h
Writing $name/$name.pm
Writing $name/$name.xs
Writing $name/fallback.c
}
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;