diff options
| author | Anton Berezin <tobez@FreeBSD.org> | 2004-01-12 12:15:27 +0000 |
|---|---|---|
| committer | Anton Berezin <tobez@FreeBSD.org> | 2004-01-12 12:15:27 +0000 |
| commit | c31ff7536d460472e0024d3007bf12cd8dfdf7b1 (patch) | |
| tree | 2ce5795c6246d583b47a7e7e428e95b01c9c9e49 /net/p5-File-RsyncP/files/patch-RsyncP.pm | |
| parent | - Update to 0.77.1 (chase xmame port) (diff) | |
Add p5-File-RsyncP 0.44, perl Rsync client.
PR: 61240
Submitted by: Lars Thegler <lars@thegler.dk>
Diffstat (limited to 'net/p5-File-RsyncP/files/patch-RsyncP.pm')
| -rw-r--r-- | net/p5-File-RsyncP/files/patch-RsyncP.pm | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/net/p5-File-RsyncP/files/patch-RsyncP.pm b/net/p5-File-RsyncP/files/patch-RsyncP.pm new file mode 100644 index 000000000000..aa3019dc71da --- /dev/null +++ b/net/p5-File-RsyncP/files/patch-RsyncP.pm @@ -0,0 +1,38 @@ +--- lib/File/RsyncP.pm.orig Thu Jul 24 04:33:37 2003 ++++ lib/File/RsyncP.pm Mon Jan 12 10:31:36 2004 +@@ -48,7 +48,7 @@ + use Getopt::Long; + 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 +@@ -267,7 +267,7 @@ + close(RSYNC); + $rs->{fh} = *FH; + $rs->{rsyncPID} = $pid; +- $rs->{pidHandler}($rs->{rsyncPID}, $rs->{childPID}) ++ $rs->{pidHandler}->($rs->{rsyncPID}, $rs->{childPID}) + if ( defined($rs->{pidHandler}) ); + # + # Write our version and get the remote version +@@ -391,7 +391,7 @@ + $rs->{childFh} = *RH; + $rs->{childPID} = $pid; + $rs->log("Child PID is $pid") if ( $rs->{logLevel} >= 2 ); +- $rs->{pidHandler}($rs->{rsyncPID}, $rs->{childPID}) ++ $rs->{pidHandler}->($rs->{rsyncPID}, $rs->{childPID}) + if ( defined($rs->{pidHandler}) ); + setsockopt($rs->{fh}, SOL_SOCKET, SO_SNDBUF, 8 * 65536); + setsockopt($rs->{childFh}, SOL_SOCKET, SO_RCVBUF, 8 * 65536); +@@ -1088,7 +1088,7 @@ + + foreach my $str ( @logStr ) { + next if ( $str eq "" ); +- $rs->{logHandler}($str); ++ $rs->{logHandler}->($str); + } + } + |