forked from Lainports/freebsd-ports
40 lines
1 KiB
Perl
40 lines
1 KiB
Perl
--- FileList/FileList.pm.orig Mon Jan 12 10:52:48 2004
|
|
+++ FileList/FileList.pm Mon Jan 12 10:53:50 2004
|
|
@@ -39,14 +39,13 @@
|
|
|
|
package File::RsyncP::FileList;
|
|
|
|
-use 5.006;
|
|
use strict;
|
|
-use warnings;
|
|
|
|
require Exporter;
|
|
require DynaLoader;
|
|
|
|
-our @ISA = qw(Exporter AutoLoader DynaLoader);
|
|
+use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION);
|
|
+@ISA = qw(Exporter AutoLoader DynaLoader);
|
|
|
|
# Items to export into callers namespace by default. Note: do not export
|
|
# names by default without a very good reason. Use EXPORT_OK instead.
|
|
@@ -55,16 +54,16 @@
|
|
# This allows declaration use File::RsyncP::FileList ':all';
|
|
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
|
|
# will save memory.
|
|
-our %EXPORT_TAGS = ( 'all' => [ qw(
|
|
+%EXPORT_TAGS = ( 'all' => [ qw(
|
|
|
|
) ] );
|
|
|
|
-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
|
|
+@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
|
|
|
|
-our @EXPORT = qw(
|
|
+@EXPORT = qw(
|
|
|
|
);
|
|
-our $VERSION = '0.44';
|
|
+$VERSION = '0.44';
|
|
|
|
bootstrap File::RsyncP::FileList $VERSION;
|
|
|