mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Two small tidying refactors for TestInit.pm

Browse Source 
Make the order of backslash and forward slash in character classes consistent.
Move the top level modification of $0 adjacent to the top level modification of
$ENV{PERL_CORE}.
This commit is contained in:
Nicholas Clark 2011-06-20 11:09:34 +02:00
parent d36b6fc666
commit 6bb18b5407
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
TestInit.pm
View File

@ -27,6 +27,8 @@ $VERSION = 1.04;
# http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-07/msg00154.html
$ENV{PERL_CORE} = $^X;
$0 =~ s/\.dp$//; # for the test.deparse make target
sub import {
my $self = shift;
my @up_2_t = ('../../lib', '../../t');
@ -65,7 +67,7 @@ sub import {
$chdir = $1;
@INC = @up_2_t;
$setopt = 1;
$^X =~ s!^\.([/\\])!..$1..$1!;
$^X =~ s!^\.([\\/])!..$1..$1!;
} else {
$chdir = 't';
@INC = '../lib';
@ -110,5 +112,4 @@ sub import {
push @INC, '.' unless ${^TAINT};
}
$0 =~ s/\.dp$//; # for the test.deparse make target
1;