diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-04-23 20:43:02 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-04-23 20:43:02 +0000 |
| commit | 29489e7c741791873ea464cb7e13d2b5a19577a7 (patch) | |
| tree | 416b7c61173edafe7ef2746b86383c7663652cdc /lib/Math | |
| parent | e22ea7cc8db19b7765901c13e81b890baf3405da (diff) | |
| download | perl-29489e7c741791873ea464cb7e13d2b5a19577a7.tar.gz | |
Include variable names in "Use of uninitialized value" warnings
p4raw-id: //depot/perl@22741
Diffstat (limited to 'lib/Math')
| -rw-r--r-- | lib/Math/BigInt.pm | 2 | ||||
| -rw-r--r-- | lib/Math/BigInt/t/mbimbf.inc | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm index 7393b12d24..220920e5e1 100644 --- a/lib/Math/BigInt.pm +++ b/lib/Math/BigInt.pm @@ -18,7 +18,7 @@ package Math::BigInt; my $class = "Math::BigInt"; require 5.005; -$VERSION = '1.70'; +$VERSION = '1.70_01'; use Exporter; @ISA = qw( Exporter ); @EXPORT_OK = qw( objectify bgcd blcm); diff --git a/lib/Math/BigInt/t/mbimbf.inc b/lib/Math/BigInt/t/mbimbf.inc index b9c94c4900..51fea643d2 100644 --- a/lib/Math/BigInt/t/mbimbf.inc +++ b/lib/Math/BigInt/t/mbimbf.inc @@ -398,10 +398,10 @@ my $warn = ''; $SIG{__WARN__} = sub { $warn = shift; }; # these should warn, since '3.17' is a NaN in BigInt and thus >= returns undef $warn = ''; eval "\$z = 3.17 <= \$y"; ok ($z, 1); print "# Got: '$warn'\n" unless -ok ($warn =~ /^Use of uninitialized value (in numeric le \(<=\) |)at/); +ok ($warn =~ /^Use of uninitialized value (\$y )?(in numeric le \(<=\) |)at/); $warn = ''; eval "\$z = \$y >= 3.17"; ok ($z, 1); print "# Got: '$warn'\n" unless -ok ($warn =~ /^Use of uninitialized value (in numeric ge \(>=\) |)at/); +ok ($warn =~ /^Use of uninitialized value (\$y )?(in numeric ge \(>=\) |)at/); # XXX TODO breakage: # $z = $y->copy()->bmul($u,2,0,'odd'); ok ($z,31000); |