diff options
| author | Zefram <zefram@fysh.org> | 2010-04-30 20:23:59 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-05-03 16:27:38 +0200 |
| commit | 1183a10042af0734ee65e252f15bd820b7bbe686 (patch) | |
| tree | 3654c6aa7af319c12327fa8df46f848848ffb23c /t/op/taint.t | |
| parent | 9702b155e486f017ed2d6a28ec16132482f38d90 (diff) | |
| download | perl-1183a10042af0734ee65e252f15bd820b7bbe686.tar.gz | |
tweak "0x123.456" deprecation
Some improvements to the deprecation added in commit
6fb472bab4fadd0ae2ca9624b74596afab4fb8cb:
- warning message includes the word "deprecated"
- warning is in "syntax" category as well as "deprecated"
- more systematic tests
- dot detected more efficiently by incorporation into existing switch
- small doc rewording
- avoid the warning in t/op/taint.t
Diffstat (limited to 't/op/taint.t')
| -rw-r--r-- | t/op/taint.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index e3a5712913..8aeaea1756 100644 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -393,7 +393,7 @@ SKIP: { # Operations which affect directories can't use tainted data. { - test !eval { mkdir "foo".$TAINT, 0755.$TAINT0 }, 'mkdir'; + test !eval { mkdir "foo".$TAINT, (0755).$TAINT0 }, 'mkdir'; test $@ =~ /^Insecure dependency/, $@; test !eval { rmdir $TAINT }, 'rmdir'; |