diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-08-04 06:55:46 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-08-04 06:55:46 +0000 |
| commit | 6af654855041e350ad1ba2c39f0be19af24f50c6 (patch) | |
| tree | d941ab3bc527634de1b65ef1116105e51220142d /t/lib/warnings | |
| parent | 58618f23d81135f8218a27f5197a29e9c271d2cb (diff) | |
| download | perl-6af654855041e350ad1ba2c39f0be19af24f50c6.tar.gz | |
Remove the "Newline in left-justified string" warning.
p4raw-id: //depot/perl@23192
Diffstat (limited to 't/lib/warnings')
| -rw-r--r-- | t/lib/warnings/sv | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/t/lib/warnings/sv b/t/lib/warnings/sv index bf01657e21..1276ee056e 100644 --- a/t/lib/warnings/sv +++ b/t/lib/warnings/sv @@ -365,22 +365,3 @@ no warnings 'numeric' ; $a = "\x{100}\x{200}"; $a = -$a; EXPECT Argument "\x{100}\x{200}" isn't numeric in negation (-) at - line 3. -######## -# sv.c -open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ; -use warnings 'printf'; -$a = "a\nb"; -$s = sprintf "%4s", $a; -printf F "%4s", $a; -$s = sprintf "%-4s", $a; -printf F "%-4s", $a; -$s = sprintf "%*s", -4, $a; -no warnings 'printf'; -$s = sprintf "%4s", $a; -printf F "%4s", $a; -$s = sprintf "%-4s", $a; -printf F "%-4s", $a; -EXPECT -Newline in left-justified string for sprintf at - line 7. -Newline in left-justified string for printf at - line 8. -Newline in left-justified string for sprintf at - line 9. |