How can I suppress the first "Use of uninitialized value in pattern
match (m//)" warning message. code and output are below.
---- code ----
# cat ./fix_archive.pl
#!/usr/bin/perl
use warnings;
use strict;
my @files = <*> unless /.mbox^/;
foreach my $file (@files) {
print $file . "\n";
}
---- code ---
here is the output
# ./fix_archive.pl
Use of uninitialized value in pattern match (m//) at ./fix_archive.pl
line 6.
add_members
arch
b4b5-archfix
change_pw
check_db
check_perms
cleanarch
clone_member
config_list
convert.py
convert.pyc
discard
dumpdb
export.py
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/