diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2013-02-19 15:53:10 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-02-20 16:06:24 +0000 |
| commit | b09f87dd777efa69f72c37f5f314fee6cfde3637 (patch) | |
| tree | 1319d20182ca57bbcf123dcd7cf8bcb76d6cc0d0 /t/lib | |
| parent | 1ba5047658911b794bcf8594a8788f49f4d58d4a (diff) | |
| download | perl-b09f87dd777efa69f72c37f5f314fee6cfde3637.tar.gz | |
Un-deprecate the support for lexical $_
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/9uninit | 3 | ||||
| -rw-r--r-- | t/lib/warnings/op | 14 |
2 files changed, 1 insertions, 16 deletions
diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index c34c22fce6..fb9a487ea6 100644 --- a/t/lib/warnings/9uninit +++ b/t/lib/warnings/9uninit @@ -787,7 +787,7 @@ s/$m1/$g1/; undef $_; tr/x/y/; undef $_; tr/x/y/r; undef $_; -my $_; + /y/; /$m1/; /$g1/; @@ -820,7 +820,6 @@ undef $g1; $m1 = '$g1'; $foo =~ s//$m1/ee; EXPECT -Use of my $_ is deprecated at - line 16. Use of uninitialized value $_ in pattern match (m//) at - line 5. Use of uninitialized value $m1 in regexp compilation at - line 6. Use of uninitialized value $_ in pattern match (m//) at - line 6. diff --git a/t/lib/warnings/op b/t/lib/warnings/op index d8e43d7bb6..3e9ea4143f 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -1,8 +1,5 @@ op.c AOK - Use of my $_ is deprecated - my $_ ; - Found = in conditional, should be == 1 if $a = 1 ; @@ -107,17 +104,6 @@ __END__ # op.c -use warnings 'deprecated' ; -my $_; -CORE::state $_; -no warnings 'deprecated' ; -my $_; -CORE::state $_; -EXPECT -Use of my $_ is deprecated at - line 3. -Use of state $_ is deprecated at - line 4. -######## -# op.c use warnings 'syntax' ; 1 if $a = 1 ; 1 if $a |