Change 17784 by [EMAIL PROTECTED] on 2002/08/26 15:15:19
#17780 relies on unixy paths to locate own directory for bignum tests.
Affected files ...
.... //depot/perl/lib/bignum/t/biinfnan.t#3 edit
.... //depot/perl/lib/bignum/t/bninfnan.t#4 edit
.... //depot/perl/lib/bignum/t/brinfnan.t#3 edit
Differences ...
==== //depot/perl/lib/bignum/t/biinfnan.t#3 (text) ====
Index: perl/lib/bignum/t/biinfnan.t
--- perl/lib/bignum/t/biinfnan.t#2~17780~ Sun Aug 25 12:03:50 2002
+++ perl/lib/bignum/t/biinfnan.t Mon Aug 26 08:15:19 2002
@@ -8,7 +8,7 @@
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
==== //depot/perl/lib/bignum/t/bninfnan.t#4 (text) ====
Index: perl/lib/bignum/t/bninfnan.t
--- perl/lib/bignum/t/bninfnan.t#3~17780~ Sun Aug 25 12:03:50 2002
+++ perl/lib/bignum/t/bninfnan.t Mon Aug 26 08:15:19 2002
@@ -8,7 +8,7 @@
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
==== //depot/perl/lib/bignum/t/brinfnan.t#3 (text) ====
Index: perl/lib/bignum/t/brinfnan.t
--- perl/lib/bignum/t/brinfnan.t#2~17780~ Sun Aug 25 12:03:50 2002
+++ perl/lib/bignum/t/brinfnan.t Mon Aug 26 08:15:19 2002
@@ -8,7 +8,7 @@
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
End of Patch.
