This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Generate the deprecation warnings for all uses $* or $#.
[perl5.git] / t / lib / warnings / gv
index fcdf1b5..6b022e1 100644 (file)
@@ -75,29 +75,39 @@ $* is no longer supported at - line 3.
 # gv.c
 $a = $#;
 $a = $*;
+$# = $a;
+$* = $a;
+$a = \$#;
+$a = \$*;
 no warnings 'deprecated' ;
 $a = $#;
 $a = $*;
+$# = $a;
+$* = $a;
+$a = \$#;
+$a = \$*;
 EXPECT
 $# is no longer supported at - line 2.
 $* is no longer supported at - line 3.
+$# is no longer supported at - line 4.
+$* is no longer supported at - line 5.
+$# is no longer supported at - line 6.
+$* is no longer supported at - line 7.
 ########
 # gv.c
-$# = $a;
-$* = $a;
-no warnings 'deprecated' ;
-$# = $a;
-$* = $a;
+@a = @#;
+@a = @*;
+$a = $#;
+$a = $*;
 EXPECT
-$# is no longer supported at - line 2.
-$* is no longer supported at - line 3.
+$# is no longer supported at - line 4.
+$* is no longer supported at - line 5.
 ########
 # gv.c
-$a = \$#;
-$a = \$*;
-no warnings 'deprecated' ;
-$a = \$#;
-$a = \$*;
+$a = $#;
+$a = $*;
+@a = @#;
+@a = @*;
 EXPECT
 $# is no longer supported at - line 2.
 $* is no longer supported at - line 3.