freebsd-ports/net/p5-File-RsyncP/files/patch-FileIO.pm
Anton Berezin c31ff7536d Add p5-File-RsyncP 0.44, perl Rsync client.
PR:		61240
Submitted by:	Lars Thegler <lars@thegler.dk>
2004-01-12 12:15:27 +00:00

20 lines
520 B
Perl

--- lib/File/RsyncP/FileIO.pm.orig Thu Jul 24 04:33:37 2003
+++ lib/File/RsyncP/FileIO.pm Mon Jan 12 10:57:29 2004
@@ -44,7 +44,7 @@
use File::Find;
use Data::Dumper;
-our $VERSION = '0.44';
+use vars qw($VERSION); $VERSION = '0.44';
use constant S_IFMT => 0170000; # type of file
use constant S_IFDIR => 0040000; # directory
@@ -664,7 +664,7 @@
foreach my $str ( @logStr ) {
next if ( $str eq "" );
- $fio->{logHandler}($str);
+ $fio->{logHandler}->($str);
}
}