This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops!
authorFather Chrysostomos <sprout@cpan.org>
Sat, 26 Nov 2011 23:39:05 +0000 (15:39 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 26 Nov 2011 23:39:05 +0000 (15:39 -0800)
Well, I at least ran test_porting after making that ‘only doc’ change!
But then I committed with -a by mistake.  Oh well.

t/op/substr.t

index 1dd9ba4..2673fc7 100644 (file)
@@ -23,7 +23,7 @@ $SIG{__WARN__} = sub {
 
 BEGIN { require './test.pl'; }
 
 
 BEGIN { require './test.pl'; }
 
-plan(361);
+plan(360);
 
 run_tests() unless caller;
 
 
 run_tests() unless caller;
 
@@ -42,8 +42,6 @@ eval{substr($a,999,999) = "" ; };# P R Q S
 like ($@, $FATAL_MSG);
 is(substr($a,0,-6), 'abc');  # P=Q R S
 is(substr($a,-3,1), 'x');    # P Q R S
 like ($@, $FATAL_MSG);
 is(substr($a,0,-6), 'abc');  # P=Q R S
 is(substr($a,-3,1), 'x');    # P Q R S
-sub{$b = shift}->(substr($a,999,999));
-is ($w--, 1, 'boundless lvalue substr only warns on fetch');
 
 substr($a,3,3) = 'XYZ';
 is($a, 'abcXYZxyz' );
 
 substr($a,3,3) = 'XYZ';
 is($a, 'abcXYZxyz' );