p4raw-id: //depot/perl@19016
# use strict;
-print "1..24\n";
+print "1..26\n";
my $test = 1;
$b=$b-1;
ok ($b == -(++$a), $a);
+$a = undef;
+ok ($a++ eq '0', do { $a=undef; $a++ }, "postinc undef returns '0'");
+
+$a = undef;
+ok (!defined($a--), do { $a=undef; $a-- }, "postdec undef returns undef");
+
# Verify that shared hash keys become unshared.
sub check_same {