From c31ff7536d460472e0024d3007bf12cd8dfdf7b1 Mon Sep 17 00:00:00 2001 From: Anton Berezin Date: Mon, 12 Jan 2004 12:15:27 +0000 Subject: Add p5-File-RsyncP 0.44, perl Rsync client. PR: 61240 Submitted by: Lars Thegler --- net/p5-File-RsyncP/files/patch-FileIO.pm | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 net/p5-File-RsyncP/files/patch-FileIO.pm (limited to 'net/p5-File-RsyncP/files/patch-FileIO.pm') diff --git a/net/p5-File-RsyncP/files/patch-FileIO.pm b/net/p5-File-RsyncP/files/patch-FileIO.pm new file mode 100644 index 000000000000..fe77c84a211a --- /dev/null +++ b/net/p5-File-RsyncP/files/patch-FileIO.pm @@ -0,0 +1,20 @@ +--- 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); + } + } + -- cgit v1.2.3