forked from Lainports/freebsd-ports
20 lines
520 B
Perl
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);
|
|
}
|
|
}
|
|
|