diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2003-08-09 08:03:02 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 08:31:01 +0000 |
| commit | 4a6602376e46f7ce9ede73b10063d105a533f05a (patch) | |
| tree | 422c7eb95b12a64ff3ff64baa87476d4477c36f5 /lib/h2xs.t | |
| parent | a42b7cd7ba47cae246abc5cd8f9dc7ba948aaa55 (diff) | |
| download | perl-4a6602376e46f7ce9ede73b10063d105a533f05a.tar.gz | |
produce Foo-Bar/lib/Foo/Bar.pm
Message-ID: <20030809220301.GE24919@windhund.schwern.org>
(plus one extra catfile() in h2xs.t)
p4raw-id: //depot/perl@20633
Diffstat (limited to 'lib/h2xs.t')
| -rw-r--r-- | lib/h2xs.t | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lib/h2xs.t b/lib/h2xs.t index 5acc0b2c21..2a5e14b66d 100644 --- a/lib/h2xs.t +++ b/lib/h2xs.t @@ -58,74 +58,74 @@ 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/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README -Writing $name/t/1.t +Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES "-f -n $name -b $thisversion", $], <<"EOXSFILES", Writing $name/ppport.h -Writing $name/$name.pm +Writing $name/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README -Writing $name/t/1.t +Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES "-f -n $name -b 5.6.1", "5.006001", <<"EOXSFILES", Writing $name/ppport.h -Writing $name/$name.pm +Writing $name/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README -Writing $name/t/1.t +Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES "-f -n $name -b 5.5.3", "5.00503", <<"EOXSFILES", Writing $name/ppport.h -Writing $name/$name.pm +Writing $name/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README -Writing $name/t/1.t +Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES "\"-X\" -f -n $name -b $thisversion", $], <<"EONOXSFILES", -Writing $name/$name.pm +Writing $name/lib/$name.pm Writing $name/Makefile.PL Writing $name/README -Writing $name/t/1.t +Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EONOXSFILES "-f -n $name $header -b $thisversion", $], <<"EOXSFILES", Writing $name/ppport.h -Writing $name/$name.pm +Writing $name/lib/$name.pm Writing $name/$name.xs Writing $name/fallback/const-c.inc Writing $name/fallback/const-xs.inc Writing $name/Makefile.PL Writing $name/README -Writing $name/t/1.t +Writing $name/t/$name.t Writing $name/Changes Writing $name/MANIFEST EOXSFILES @@ -134,7 +134,7 @@ EOXSFILES my $total_tests = 3; # opening, closing and deleting the header file. for (my $i = $#tests; $i > 0; $i-=3) { # 1 test for running it, 1 test for the expected result, and 1 for each file - # plus 1 to open and 1 to check for the use in $name.pm and Makefile.PL + # plus 1 to open and 1 to check for the use in lib/$name.pm and Makefile.PL # And 1 more for our check for "bonus" files, 2 more for ExtUtil::Manifest. # use the () to force list context and hence count the number of matches. $total_tests += 9 + (() = $tests[$i] =~ /(Writing)/sg); @@ -199,7 +199,7 @@ while (my ($args, $version, $expectation) = splice @tests, 0, 3) { pop @INC; chdir ($up) or die "chdir $up failed: $!"; - foreach my $leaf ("$name.pm", 'Makefile.PL') { + foreach my $leaf (File::Spec->catfile('lib', "$name.pm"), 'Makefile.PL') { my $file = File::Spec->catfile($name, $leaf); if (ok (open (FILE, $file), "open $file")) { my $match = qr/use $version;/; |