This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix sv_dec of undefined PVs to (a) not downgrade to NV
[perl5.git] / t / op / inc.t
index 56d27d2..156ca92 100755 (executable)
@@ -2,7 +2,7 @@
 
 # use strict;
 
-print "1..26\n";
+print "1..30\n";
 
 my $test = 1;
 
@@ -157,3 +157,22 @@ foreach (keys %postdec) {
 }
 
 check_same (\%orig, \%postdec);
+
+{
+    no warnings 'uninitialized';
+    my $x, $y;
+    eval {
+       $y ="$x\n";
+       ++$x;
+    };
+    ok($x == 1, $x);
+    ok($@ eq '', $@);
+
+    my $p, $q;
+    eval {
+       $q ="$p\n";
+       --$p;
+    };
+    ok($p == -1, $p);
+    ok($@ eq '', $@);
+}