Okay now I have a question because I can't find an answer.
The Perl documentation does not answer my question and I can't find an answer
using Google.
At the top of my script I have:
#!/usr/bin/perl -T
use strict;
use warnings;
use diagnostics -verbose;
When I put the -T switch in the script I get:
DESCRIPTION OF DIAGNOSTICS
These messages are classified as follows (listed in increasing order of
desperation):
(W) A warning (optional).
(D) A deprecation (optional).
(S) A severe warning (enabled by default).
(F) A fatal error (trappable).
(P) An internal error you should never see (trappable).
(X) A very fatal error (nontrappable).
(A) An alien error message (not generated by Perl).
The majority of messages from the first three classifications above
(W, D & S) can be controlled using the warnings pragma.
If a message can be controlled by the warnings pragma, its warning
category is included with the classification letter in the description
below.
Severe warnings are always enabled, unless they are explicitly disabled
with the warnings pragma or the -X switch.
Trappable errors may be trapped using the eval operator. See
perlfunc/eval. In almost all cases, warnings may be selectively
disabled or promoted to fatal errors using the warnings pragma.
See warnings.
Insecure dependency in open while running with -T switch at
/home/jack/bin/mtf.pl line 26 (#1)
(F) You tried to do something that the tainting mechanism didn't like.
The tainting mechanism is turned on when you're running setuid or
setgid, or when you specify -T to turn it on explicitly. The
tainting mechanism labels all data that's derived directly or indirectly
from the user, who is considered to be unworthy of your trust. If any
such data is used in a "dangerous" operation, you get this error. See
perlsec for more information.
Uncaught exception from user code:
Insecure dependency in open while running with -T switch
at /home/jack/bin/mtf.pl line 26.
at /home/jack/bin/mtf.pl line 26
This is at line 26 in my script:
open(NF, ">$newfile");
As I said above I have not found an answer to my question. Why does the -T
switch not like my line 26? Where can I read documentation that will explain
this and how to fix it? perlsec did not help me at all. My script works when
I take the -T switch out
my $oldfile = $ARGV[0]; # line 22
my $newfile = $ARGV[1]; # line 23
open(OF, $oldfile); # line 25
open(NF, ">$newfile"); # line 26
Thanks for any help
--
Silverfox
There are those that will think me rude.
Do you want someone to do it for you?
They will be glad to, if you pay them.
To get free help one must show evidence
that one has made an honest effort to
find/figure out the answer first.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
