Why doesn't the program bellow work:
Perl complains about some uninitialised value at line 13, but there
everything seems to be OK...
#!/bin/perl -w
use Fcntl;
use English;
my($fname) = $ARGV[0];
open(FIN, "<$fname") or die "Cannot open $fname\n";
$RS = undef;
my($strng) = <FIN>;
my($fct);
fcntl(FIN, F_GETFL, $fct) or die ("AAAA $!\n");
#I...... line with problems
print $fct;
close(FIN);
__END__
--
+- -- - --- ----[ http://users.hemo.net/indy ]---- -- -
Knezevic Nikola :: [EMAIL PROTECTED]
hemo.net
- --- -- ----- ----==----===---------===-----------+
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
