From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 26 Aug 2002 15:15:19 +0000 (+0000)
Subject: #17780 relies on unixy paths to locate own directory for bignum tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff82603e9e548d32f848ce90a6d459bec959863b;p=p5sagit%2Fp5-mst-13.2.git

#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
--- 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
--- 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
--- 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