I have a script that when it runs (with no parameters) I have warnings
displayed (we have all seen them but) :
>Use of uninitialized value at ./log_prune.pl line 14.
Here is the beginning of my code that gives the warning:
#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use LogUtil;
#help();
#usage();
my ( %params );
my ( $rc ) = 0;
my ( $file ) = "";
# If the first argument is a text file then store the name
if ( (-T $ARGV[0]) )
# ^ This is the bad boy
{
$file = shift;
}
[massive snip]
So how can I clean up these warnings, aside from removing the -w parameter
?
thanks all
-----------------------------------------
Craig Moynes
[EMAIL PROTECTED]
