1 util.c AOK 2 3 Illegal octal digit ignored 4 my $a = oct "029" ; 5 6 Illegal hex digit ignored 7 my $a = hex "0xv9" ; 8 9 Illegal binary digit ignored 10 my $a = oct "0b9" ; 11 12 Integer overflow in binary number 13 my $a = oct "0b111111111111111111111111111111111111111111" ; 14 Binary number > 0b11111111111111111111111111111111 non-portable 15 $a = oct "0b111111111111111111111111111111111" ; 16 Integer overflow in octal number 17 my $a = oct "077777777777777777777777777777" ; 18 Octal number > 037777777777 non-portable 19 $a = oct "0047777777777" ; 20 Integer overflow in hexadecimal number 21 my $a = hex "0xffffffffffffffffffff" ; 22 Hexadecimal number > 0xffffffff non-portable 23 $a = hex "0x1ffffffff" ; 24 25__END__ 26# util.c 27use warnings 'digit' ; 28my $a = oct "029" ; 29no warnings 'digit' ; 30$a = oct "029" ; 31EXPECT 32Illegal octal digit '9' ignored at - line 3. 33######## 34# util.c 35use warnings 'digit' ; 36my $a = hex "0xv9" ; 37no warnings 'digit' ; 38$a = hex "0xv9" ; 39EXPECT 40Illegal hexadecimal digit 'v' ignored at - line 3. 41######## 42# util.c 43use warnings 'digit' ; 44my $a = oct "0b9" ; 45no warnings 'digit' ; 46$a = oct "0b9" ; 47EXPECT 48Illegal binary digit '9' ignored at - line 3. 49######## 50# util.c 51use warnings 'overflow' ; 52my $a = oct "0b11111111111111111111111111111111111111111111111111111111111111111"; 53no warnings 'overflow' ; 54$a = oct "0b11111111111111111111111111111111111111111111111111111111111111111"; 55EXPECT 56Integer overflow in binary number at - line 3. 57######## 58# util.c 59use warnings 'overflow' ; 60my $a = hex "0xffffffffffffffffffff" ; 61no warnings 'overflow' ; 62$a = hex "0xffffffffffffffffffff" ; 63EXPECT 64Integer overflow in hexadecimal number at - line 3. 65######## 66# util.c 67use warnings 'overflow' ; 68my $a = oct "077777777777777777777777777777" ; 69no warnings 'overflow' ; 70$a = oct "077777777777777777777777777777" ; 71EXPECT 72Integer overflow in octal number at - line 3. 73######## 74# util.c 75use warnings 'portable' ; 76my $a = oct "0b011111111111111111111111111111110" ; 77 $a = oct "0b011111111111111111111111111111111" ; 78 $a = oct "0b111111111111111111111111111111111" ; 79no warnings 'portable' ; 80 $a = oct "0b011111111111111111111111111111110" ; 81 $a = oct "0b011111111111111111111111111111111" ; 82 $a = oct "0b111111111111111111111111111111111" ; 83EXPECT 84Binary number > 0b11111111111111111111111111111111 non-portable at - line 5. 85######## 86# util.c 87use warnings 'portable' ; 88my $a = hex "0x0fffffffe" ; 89 $a = hex "0x0ffffffff" ; 90 $a = hex "0x1ffffffff" ; 91no warnings 'portable' ; 92 $a = hex "0x0fffffffe" ; 93 $a = hex "0x0ffffffff" ; 94 $a = hex "0x1ffffffff" ; 95EXPECT 96Hexadecimal number > 0xffffffff non-portable at - line 5. 97######## 98# util.c 99use warnings 'portable' ; 100my $a = oct "0037777777776" ; 101 $a = oct "0037777777777" ; 102 $a = oct "0047777777777" ; 103no warnings 'portable' ; 104 $a = oct "0037777777776" ; 105 $a = oct "0037777777777" ; 106 $a = oct "0047777777777" ; 107EXPECT 108Octal number > 037777777777 non-portable at - line 5. 109######## 110# util.c 111use warnings; 112$x = 1; 113if ($x) { 114 print $y; 115} 116EXPECT 117Name "main::y" used only once: possible typo at - line 5. 118Use of uninitialized value in print at - line 5. 119######## 120# util.c 121use warnings; 122$x = 1; 123if ($x) { 124 $x++; 125 print $y; 126} 127EXPECT 128Name "main::y" used only once: possible typo at - line 6. 129Use of uninitialized value in print at - line 6. 130######## 131# util.c 132use warnings; 133$x = 0; 134if ($x) { 135 print "1\n"; 136} elsif (!$x) { 137 print $y; 138} else { 139 print "0\n"; 140} 141EXPECT 142Name "main::y" used only once: possible typo at - line 7. 143Use of uninitialized value in print at - line 7. 144######## 145# util.c 146use warnings; 147$x = 0; 148if ($x) { 149 print "1\n"; 150} elsif (!$x) { 151 $x++; 152 print $y; 153} else { 154 print "0\n"; 155} 156EXPECT 157Name "main::y" used only once: possible typo at - line 8. 158Use of uninitialized value in print at - line 8. 159