From 4e5f9c64eb5e756eaef0af74ac8030a0d1d83b5d Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 9 Dec 2004 12:34:56 +0000 Subject: POD fixes. --- packdrake.pm | 21 +++++++++------------ 1 file 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 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 Bextract_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 +=item B 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. + =head1 COPYRIGHT Copyright (C) 2000-2004 Mandrakesoft @@ -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 - -- cgit v1.2.1