aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--packdrake.pm21
1 files changed, 9 insertions, 12 deletions
diff --git a/packdrake.pm b/packdrake.pm
index e463f3e..f6f63e1 100644
--- a/packdrake.pm
+++ b/packdrake.pm
@@ -20,11 +20,9 @@ package packdrake;
use strict;
use warnings;
-use vars qw($VERSION);
use Packdrakeng;
our @ISA = qw(Packdrakeng);
-
-$VERSION = $Packdrakeng::VERSION;
+our $VERSION = $Packdrakeng::VERSION;
sub new {
my ($class, $file, %options) = @_;
@@ -67,7 +65,7 @@ sub build_archive {
chomp($line);
$pack->add($dir, $line) or return;
}
- 1
+ 1;
}
sub cat_archive {
@@ -88,7 +86,7 @@ __END__
packdrake - Simple Archive Extractor/Builder
-This module is provide for compatibility with old packdrake.
+This module is a compatibility wrapper around the new Packdrakeng module.
=head1 SYNOPSIS
@@ -112,10 +110,6 @@ This module is provide for compatibility with old packdrake.
C<packdrake> is a very simple archive extractor and builder used by Mandrakesoft.
-=head1 SEE ALSO
-
-Packdrakeng
-
=head1 FUNCTIONS
=over
@@ -125,7 +119,7 @@ Packdrakeng
Open the packdrake archive $file and return a packdrake object.
Return undef on failure.
-=item B<packdrake->extract_archive($dir, @files)>
+=item B<< packdrake->extract_archive($dir, @files) >>
Extract files list into the specified directory.
@@ -133,7 +127,7 @@ Extract files list into the specified directory.
List files packed into achives given.
-=item B<packdrake::build_archive($input, $dir, $archive, $blocksize, $compress, $uncompress)>
+=item B<packdrake::build_archive($input,$dir,$archive,$blocksize,$compress,$uncompress)>
Build a new archive:
- $input is a file handle to find file list to pack
@@ -150,6 +144,10 @@ specified
=back
+=head1 SEE ALSO
+
+L<Packdrakeng>.
+
=head1 COPYRIGHT
Copyright (C) 2000-2004 Mandrakesoft <nanardon@mandrake.org>
@@ -169,4 +167,3 @@ along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
=cut
-