Subject: | apply WebFS-Filecopy patch to fix error when callnig via fetch.pl |
When running fetch.pl a perl package supplied with:
webFS-Filecopy v1.04
http://search.cpan.org/~bzajac/WebFS-FileCopy-1.04/
You ned to apply a patch supplied via webFS-FileCopy to
LWPng-alpha v0.24 to fix errors.
attched patch file:
This patch is included in webFS-Filecopy.
--- ../LWPng-alpha-0.24-orig/lib/LWP/Conn/_Connect.pm Tue Jul 7 14:36:55 1998
+++ ./lib/LWP/Conn/_Connect.pm Fri Feb 2 16:07:49 2001
@@ -24,6 +24,7 @@
my $O_NONBLOCK = Fcntl::O_NONBLOCK();
my $F_GETFL = Fcntl::F_GETFL();
my $F_SETFL = Fcntl::F_SETFL();
+ undef *IO::Handle::blocking;
*IO::Handle::blocking = sub {
my $fh = shift;
my $dummy = '';
############################################
This patch is reliable enough and necessary enough to be included in another package, so it should be applied to LWPng-alpha v.024
--Luke