Subject: | Missing seek function |
Date: | Tue, 05 May 2009 15:55:50 +0200 |
To: | bug-File-Bidirectional [...] rt.cpan.org |
From: | "sajid mahmood" <sajidm [...] gmx.net> |
Hi,
to tie with object & work seek function properly, seek function need to be added & overwritten in module.
tie(*LOGFILE, 'File::Bidirectional', $fname, {origin => 1}) or die("Could not open '$fname' log file.");
seek(LOGFILE, $seek_needle, 0) if($seek_needle);
If this function is not provided then one get following error:
Can't locate object method "SEEK" via package "File::Bidirectional" at line xxx
here is diff for modified package.
96a97
Show quoted text
> *SEEK = \&_seek ;#sajid 28.11.2008
420a422,435
Show quoted text> =item seek
>
> Set the current position to read of the filehandle.
>
> =cut
>
> sub _seek {
> my ( $x, $pos, $dir ) = @_;
> undef @{$x->{buffer}};
> sysseek($x->{fh}, $x->{cur} = $pos, $dir);
> }
>
> =pod
>
Perl=v5.8.8 built for i486-linux-gnu-thread-multi
OS=Linux sol 2.6.17.13-kanotix-2 #1 SMP PREEMPT Tue Sep 12 12:38:45 CEST 2006 i686 GNU/Linux
Best regards.
Sajid Mahmood
--
Neu: GMX FreeDSL Komplettanschluss mit DSL 6.000 Flatrate + Telefonanschluss für nur 17,95 Euro/mtl.!* http://dslspecial.gmx.de/freedsl-surfflat/?ac=OM.AD.PD003K11308T4569a
Message body is not shown because sender requested not to inline it.