Hello,
I got here:
binmode() on closed filehandle _GEN_37 at
/usr/local/lib/perl5/site_perl/5.8.2/i386-linux/AxKit.pm line 42.
when I deleted my trace directory.
I offer to add additionally something like this:
--- AxKit.pm.before 2004-01-15 12:37:46 +0600
+++ AxKit.pm 2004-01-15 12:38:01 +0600
@@ -39,12 +39,12 @@
sub open(*$;$) {
my $res = CORE::open($_[0],$_[1]);
- binmode($_[0],($] >= 5.008?(':'.($_[2]||'utf8')):()));
+ binmode($_[0],($] >= 5.008?(':'.($_[2]||'utf8')):())) if $res;
return $res;
}
sub sysopen(*$$;$) {
my $res = CORE::sysopen($_[0],$_[1],$_[2]);
- binmode($_[0],($] >= 5.008?(':'.($_[3]||'utf8')):()));
+ binmode($_[0],($] >= 5.008?(':'.($_[3]||'utf8')):())) if $res;
return $res;
}
Sincerely,
Alex.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
