diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-03-13 02:12:11 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-03-13 02:12:11 +0000 |
| commit | 8b164fe9e6e17b9edd1002c0e27f58b222c9eb43 (patch) | |
| tree | ed82454d838ffa569351f0898c5284f108035c12 /t/pragma | |
| parent | a3960eed058bd30f12706ada9c32571ab1456ee4 (diff) | |
| download | perl-8b164fe9e6e17b9edd1002c0e27f58b222c9eb43.tar.gz | |
Basic 5.6.0 RC1 build patches for VMS
p4raw-id: //depot/vmsperl@5688
Diffstat (limited to 't/pragma')
| -rw-r--r-- | t/pragma/warn/doio | 6 | ||||
| -rw-r--r-- | t/pragma/warn/util | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/t/pragma/warn/doio b/t/pragma/warn/doio index 57dd993a2b..bd409721d2 100644 --- a/t/pragma/warn/doio +++ b/t/pragma/warn/doio @@ -156,7 +156,7 @@ Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+ ######## # doio.c [Perl_nextargv] $^W = 0 ; -my $filename = "./temp" ; +my $filename = "./temp.dir" ; mkdir $filename, 0777 or die "Cannot create directory $filename: $!\n" ; { @@ -178,8 +178,8 @@ mkdir $filename, 0777 } rmdir $filename ; EXPECT -Can't do inplace edit: ./temp is not a regular file at - line 9. -Can't do inplace edit: ./temp is not a regular file at - line 21. +Can't do inplace edit: ./temp.dir is not a regular file at - line 9. +Can't do inplace edit: ./temp.dir is not a regular file at - line 21. ######## # doio.c [Perl_do_eof] diff --git a/t/pragma/warn/util b/t/pragma/warn/util index 6c9bc8c696..e82d6a6617 100644 --- a/t/pragma/warn/util +++ b/t/pragma/warn/util @@ -14,7 +14,7 @@ Binary number > 0b11111111111111111111111111111111 non-portable $a = oct "0b111111111111111111111111111111111" ; Integer overflow in octal number - my $a = oct "0777777777777777777777777777777777777777777777777" ; + my $a = oct "077777777777777777777777777777" ; Octal number > 037777777777 non-portable $a = oct "0047777777777" ; Integer overflow in hexadecimal number @@ -65,9 +65,9 @@ Integer overflow in hexadecimal number at - line 3. ######## # util.c use warnings 'overflow' ; -my $a = oct "0777777777777777777777777777777777777777777777777" ; +my $a = oct "077777777777777777777777777777" ; no warnings 'overflow' ; -$a = oct "0777777777777777777777777777777777777777777777777" ; +$a = oct "077777777777777777777777777777" ; EXPECT Integer overflow in octal number at - line 3. ######## |