diff options
Diffstat (limited to 'lib/bignum/t')
| -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 |