diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-03-04 16:33:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-04 16:37:13 +0000 |
| commit | 12bcd1a617c74d6ebf1dc3711b6a85be696dc9bb (patch) | |
| tree | 5742672e5980d028772abf7939766816c975850f /pp_sys.c | |
| parent | cb1f50b8bcbf67997c1040a0bba4a468fe0cefcc (diff) | |
| download | perl-12bcd1a617c74d6ebf1dc3711b6a85be696dc9bb.tar.gz | |
taint + deprecated warnings
From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
Message-ID: <AIEAJICLCBDNAAOLLOKLCEKGDOAA.paul_marquess@yahoo.co.uk>
p4raw-id: //depot/perl@15003
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -3422,7 +3422,7 @@ PP(pp_chdir) ) { if( MAXARG == 1 ) - deprecate("chdir('') or chdir(undef) as chdir()"); + deprecate_old("chdir('') or chdir(undef) as chdir()"); tmps = SvPV(*svp, n_a); } else { @@ -4043,8 +4043,8 @@ PP(pp_system) if (SP - MARK == 1) { TAINT_PROPER("system"); } - else if (ckWARN(WARN_TAINT)) { - Perl_warner(aTHX_ WARN_TAINT, + else if (ckWARN2(WARN_TAINT, WARN_DEPRECATED)) { + Perl_warner(aTHX_ packWARN2(WARN_TAINT, WARN_DEPRECATED), "Use of tainted arguments in %s is deprecated", "system"); } } @@ -4167,8 +4167,8 @@ PP(pp_exec) if (SP - MARK == 1) { TAINT_PROPER("exec"); } - else if (ckWARN(WARN_TAINT)) { - Perl_warner(aTHX_ WARN_TAINT, + else if (ckWARN2(WARN_TAINT, WARN_DEPRECATED)) { + Perl_warner(aTHX_ packWARN2(WARN_TAINT, WARN_DEPRECATED), "Use of tainted arguments in %s is deprecated", "exec"); } } |