diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-08-26 15:15:19 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-26 15:15:19 +0000 |
| commit | ff82603e9e548d32f848ce90a6d459bec959863b (patch) | |
| tree | 9e4c6a6dfe3e6bcd327a90d9c7fe84fe752afe1b /lib | |
| parent | 60ffb3081afd811893be4fb73d870ed1a5c9ca72 (diff) | |
| download | perl-ff82603e9e548d32f848ce90a6d459bec959863b.tar.gz | |
#17780 relies on unixy paths to locate own directory for bignum tests.
p4raw-id: //depot/perl@17784
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/bignum/t/biinfnan.t | 2 | ||||
| -rw-r--r-- | lib/bignum/t/bninfnan.t | 2 | ||||
| -rw-r--r-- | lib/bignum/t/brinfnan.t | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lib/bignum/t/biinfnan.t b/lib/bignum/t/biinfnan.t index 758bed1e58..338c0a7d0c 100644 --- a/lib/bignum/t/biinfnan.t +++ b/lib/bignum/t/biinfnan.t @@ -8,7 +8,7 @@ use strict; BEGIN { $| = 1; - my $location = $0; $location =~ s{^(.*/).*}{$1}; + my $location = $0; $location =~ s/biinfnan.t//i; if ($ENV{PERL_CORE}) { @INC = qw(../lib); # testing with the core distribution diff --git a/lib/bignum/t/bninfnan.t b/lib/bignum/t/bninfnan.t index 2b84406866..adaf4fca0b 100644 --- a/lib/bignum/t/bninfnan.t +++ b/lib/bignum/t/bninfnan.t @@ -8,7 +8,7 @@ use strict; BEGIN { $| = 1; - my $location = $0; $location =~ s{^(.*/).*}{$1}; + my $location = $0; $location =~ s/bninfnan.t//; if ($ENV{PERL_CORE}) { @INC = qw(../lib); # testing with the core distribution diff --git a/lib/bignum/t/brinfnan.t b/lib/bignum/t/brinfnan.t index 266c51b5de..942ffcc780 100644 --- a/lib/bignum/t/brinfnan.t +++ b/lib/bignum/t/brinfnan.t @@ -8,7 +8,7 @@ use strict; BEGIN { $| = 1; - my $location = $0; $location =~ s{^(.*/).*}{$1}; + my $location = $0; $location =~ s/brinfnan.t//; if ($ENV{PERL_CORE}) { @INC = qw(../lib); # testing with the core distribution |