#17780 relies on unixy paths to locate own directory for bignum tests.

p4raw-id: //depot/perl@17784

diff --git a/lib/bignum/t/biinfnan.t b/lib/bignum/t/biinfnan.t
index 758bed1..338c0a7 100644 (file)
--- 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 2b84406..adaf4fc 100644 (file)
--- 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 266c51b..942ffcc 100644 (file)
--- 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