diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-06 10:44:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-06 10:44:48 +0000 |
| commit | 59d4a9fea3abd8287d968b482c63820e4931d0aa (patch) | |
| tree | 96431a28f232e3612a83428132a651294bf68723 /t | |
| parent | 7e791ca9f31e269ac77d3bfde8f40ad9f3d38c6f (diff) | |
| parent | b162f9ead0a98db35cdcfc8c889e344c040c8d8e (diff) | |
| download | perl-59d4a9fea3abd8287d968b482c63820e4931d0aa.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@3614
Diffstat (limited to 't')
| -rwxr-xr-x | t/base/rs.t | 2 | ||||
| -rw-r--r-- | t/pragma/warn/op | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/base/rs.t b/t/base/rs.t index 52a957260f..07cc8fd447 100755 --- a/t/base/rs.t +++ b/t/base/rs.t @@ -24,7 +24,7 @@ $bar = <TESTFILE>; if ($bar eq "12\n") {print "ok 2\n";} else {print "not ok 2\n";} # Try a non line terminator -$/ = "3"; +$/ = 3; $bar = <TESTFILE>; if ($bar eq "123") {print "ok 3\n";} else {print "not ok 3\n";} diff --git a/t/pragma/warn/op b/t/pragma/warn/op index a07a837ffb..7c2b6b8050 100644 --- a/t/pragma/warn/op +++ b/t/pragma/warn/op @@ -204,7 +204,7 @@ Useless use of repeat in void context at - line 3. Useless use of wantarray in void context at - line 5. Useless use of reference-type operator in void context at - line 12. Useless use of reference constructor in void context at - line 13. -Useless use of scalar ref constructor in void context at - line 14. +Useless use of single ref constructor in void context at - line 14. Useless use of defined operator in void context at - line 15. Useless use of hex in void context at - line 16. Useless use of oct in void context at - line 17. |