diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-08 10:35:04 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-08 10:35:04 +0000 |
| commit | b7bf404b7a72f55bf93065ae7b25a5ba0a9ff7f6 (patch) | |
| tree | 08db02df5a369b3b09389ffdeb82f8fa2de5026b /warnings.pl | |
| parent | 647f639ff8a9df78122c041a3971917f8df7aa30 (diff) | |
| download | perl-b7bf404b7a72f55bf93065ae7b25a5ba0a9ff7f6.tar.gz | |
Turn taint warnings (-t) into severe warnings, so they're
on by default, without having to play games with the
warning bits. Add a test for -t.
p4raw-id: //depot/perl@29717
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/warnings.pl b/warnings.pl index 8d8913430f..3c978d1d78 100644 --- a/warnings.pl +++ b/warnings.pl @@ -319,9 +319,6 @@ print WARN tab(5, '#define WARNsize'), "$warn_size\n" ; #print WARN tab(5, '#define WARN_ALLstring'), '"', ('\377' x $warn_size) , "\"\n" ; print WARN tab(5, '#define WARN_ALLstring'), '"', ('\125' x $warn_size) , "\"\n" ; print WARN tab(5, '#define WARN_NONEstring'), '"', ('\0' x $warn_size) , "\"\n" ; -my $WARN_TAINTstring = mkOct($warn_size, map $_ * 2, @{ $list{'taint'} }); - -print WARN tab(5, '#define WARN_TAINTstring'), qq["$WARN_TAINTstring"\n] ; print WARN <<'EOM'; |