was Re: [ID 19991102.003] perl on os390

[p5sagit/p5-mst-13.2.git] / t / pragma / warn / toke

diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke
index 182cc17..ee02efa 100644 (file)
--- a/t/pragma/warn/toke
+++ b/t/pragma/warn/toke
@@ -588,23 +588,23 @@ Octal number > 037777777777 non-portable at - line 11.
 use warnings 'overflow' ;
 my $a =  0b011111111111111111111111111111110 ;
    $a =  0b011111111111111111111111111111111 ;
-   $a =  0b111111111111111111111111111111111 ;
+   $a =  0b10000000000000000000000000000000000000000000000000000000000000000 ;
    $a =  0x0fffffffe ;
    $a =  0x0ffffffff ;
-   $a =  0x1ffffffff ;
+   $a =  0x10000000000000000 ;
    $a =  0037777777776 ;
    $a =  0037777777777 ;
-   $a =  0047777777777 ;
+   $a =  002000000000000000000000;
 no warnings 'overflow' ;
    $a =  0b011111111111111111111111111111110 ;
    $a =  0b011111111111111111111111111111111 ;
-   $a =  0b111111111111111111111111111111111 ;
+   $a =  0b10000000000000000000000000000000000000000000000000000000000000000 ;
    $a =  0x0fffffffe ;
    $a =  0x0ffffffff ;
-   $a =  0x1ffffffff ;
+   $a =  0x10000000000000000 ;
    $a =  0037777777776 ;
    $a =  0037777777777 ;
-   $a =  0047777777777 ;
+   $a =  002000000000000000000000;
 EXPECT
 Integer overflow in binary number at - line 5.
 Integer overflow in hexadecimal number at - line 8.