| Subject: | bad prototype for vf_truncate |
This bug arrises if you use IO::Handle (via IO::Socket or any other) with Inline::Files.
in Inline::Files::Virtual the prototype for vf_truncate reads as:
sub vf_truncate (*) {
my($glob, $length) = @_;
is should be:
sub vf_truncate (*$) {
my($glob, $length) = @_;
It take 2 params.
You can see the bug if you run a script which contains:
use Inline::Files;
use IO::Handle;
exit;
It will produce an error like:
Too many arguments for Inline::Files::Virtual::vf_truncate at /home/y/lib/perl5/5.6.1/i386-freebsd/IO/Handle.pm line 421, near "])"
BEGIN not safe after errors--compilation aborted at /home/y/lib/perl5/5.6.1/i386-freebsd/IO/Handle.pm line 591.
Compilation failed in require at /tmp/test.pl line 2.
BEGIN failed--compilation aborted at /tmp/test.pl line 2.
Thanks!
-Cory