-#!./perl -w
+#!./perl
#P = start of string Q = start of substr R = end of substr S = end of string
@INC = '../lib';
}
use warnings ;
+no warnings 'deprecated';
$a = 'abcdefxyz';
$SIG{__WARN__} = sub {
plan(334);
+run_tests() unless caller;
+
+my $krunch = "a";
+
+sub run_tests {
+
$FATAL_MSG = qr/^substr outside of string/;
is(substr($a,0,3), 'abc'); # P=Q R S
# [perl #24200] string corruption with lvalue sub
{
- my $foo = "a";
- sub bar: lvalue { substr $foo, 0 }
+ sub bar: lvalue { substr $krunch, 0 }
bar = "XXX";
is(bar, 'XXX');
- $foo = '123456789';
+ $krunch = '123456789';
is(bar, '123456789');
}
is(substr($a,1,2), 'bc');
is(substr($a,1,1), 'b');
}
+
+}