Hi Dylan
Check your version of Fcntl. The EXPORT_TAGS hash in Fcntl.pm should have an
key of 'seek' which, according to the Perl dianostics, it doesn't.
As a quick fix you could try:
use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
HTH,
Rob
"Dylan Boudreau" <[EMAIL PROTECTED]> wrote in message
004001c2b7f8$082c5250$0400a8c0@dylan">news:004001c2b7f8$082c5250$0400a8c0@dylan...
> I am trying to use seek from Fcntl and am getting the following errors
> when I try and run the program.
>
> "seek" is not defined in %Fcntl::EXPORT_TAGS at
> /usr/perl5/5.00503/Exporter.pm line 67
> Exporter::export('Fcntl', 'main', ':seek') called at
> /usr/perl5/5.00503/Exporter.pm line 182
> Exporter::import('Fcntl', ':seek') called at lists.pl line 3
> main::BEGIN() called at /usr/perl5/5.00503/Carp.pm line 3
> eval {...} called at /usr/perl5/5.00503/Carp.pm line 3
>
> I am using the following syntax to import:
>
> use Fcntl qw/:seek/;
>
> And the following to invoke:
>
> seek $list, 0, SEEK_SET or die "Cannot seek on '$file' $!";
>
>
> I know I should be able to figure this out on my own but I am pretty new
> to perl and have been on vacation for a month so to say I am rusty is a
> bit of an understatement. Can someone please tell me what I am doing
> wrong?
>
> Thanks,
>
> Dylan
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
