diff options
author | Paul Marquess <paul.marquess@btinternet.com> | 1998-07-29 10:28:45 +0100 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-09 11:31:53 +0000 |
commit | 599cee73f2261c5e09cde7ceba3f9a896989e117 (patch) | |
tree | ca10c96d845fe755d35da930b1935926856e99b9 /taint.c | |
parent | 33938b7370f825af073cea6d9fadf7e82857ec9c (diff) | |
download | perl-599cee73f2261c5e09cde7ceba3f9a896989e117.tar.gz |
lexical warnings; tweaks to places that didn't apply correctly
Message-Id: <9807290828.AA26286@claudius.bfsec.bt.co.uk>
Subject: lexical warnings patch for 5.005_50
p4raw-id: //depot/perl@1773
Diffstat (limited to 'taint.c')
-rw-r--r-- | taint.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -25,8 +25,8 @@ taint_proper(const char *f, char *s) ug = " while running with -T switch"; if (!PL_unsafe) croak(f, s, ug); - else if (PL_dowarn) - warn(f, s, ug); + else if (ckWARN(WARN_TAINT)) + warner(WARN_TAINT, f, s, ug); } } |