From b90ab6b2caff421bb9360248484fc78d10c70446 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 22 Aug 2005 12:59:27 +0000
Subject: [PATCH] Argh. I've overwritten local changes to ptar with change
 25312

p4raw-id: //depot/perl@25316
---
 lib/Archive/Tar/bin/ptar | 55 +++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 43 insertions(+), 12 deletions(-)

diff --git a/lib/Archive/Tar/bin/ptar b/lib/Archive/Tar/bin/ptar
index 014d2f7..8947257 100644
--- a/lib/Archive/Tar/bin/ptar
+++ b/lib/Archive/Tar/bin/ptar
@@ -28,34 +28,34 @@ if( $opts->{c} ) {
     my @files;
     find( sub { push @files, $File::Find::name;
                 print $File::Find::name.$/ if $verbose }, @ARGV );
-                
-    Archive::Tar->create_archive( $file, $compress, @files );              
+
+    Archive::Tar->create_archive( $file, $compress, @files );
     exit;
-} 
+}
 
 my $tar = Archive::Tar->new($file, $compress);
 
 if( $opts->{t} ) {
-    print map { $_->full_path . $/ } $tar->get_files; 
+    print map { $_->full_path . $/ } $tar->get_files;
 
-} elsif( $opts->{x} ) {    
+} elsif( $opts->{x} ) {
     print map { $_->full_path . $/ } $tar->get_files
         if $verbose;
     Archive::Tar->extract_archive($file, $compress);
-}    
+}
 
 
 
 sub usage {
     qq[
-Usage:  ptar -c [-v] [-z] [-f ARCHIVE_FILE] FILE FILE ...      
-        ptar -x [-v] [-z] [-f ARCHIVE_FILE] 
-        ptar -t [-z] [-f ARCHIVE_FILE] 
+Usage:  ptar -c [-v] [-z] [-f ARCHIVE_FILE] FILE FILE ...
+        ptar -x [-v] [-z] [-f ARCHIVE_FILE]
+        ptar -t [-z] [-f ARCHIVE_FILE]
         ptar -h
-    
+
     ptar is a small, tar look-alike program that uses the perl module
-    Archive::Tar to extract, create and list tar archives.    
-    
+    Archive::Tar to extract, create and list tar archives.
+
 Options:
     x   Extract from ARCHIVE_FILE
     c   Create ARCHIVE_FILE from FILE
@@ -72,3 +72,34 @@ See Also:
     \n]
 }
 
+=head1 NAME
+
+ptar - a tar-like program written in perl
+
+=head1 DESCRIPTION
+
+ptar is a small, tar look-alike program that uses the perl module
+Archive::Tar to extract, create and list tar archives.
+
+=head1 SYNOPSIS
+
+    ptar -c [-v] [-z] [-f ARCHIVE_FILE] FILE FILE ...
+    ptar -x [-v] [-z] [-f ARCHIVE_FILE]
+    ptar -t [-z] [-f ARCHIVE_FILE]
+    ptar -h
+
+=head1 OPTIONS
+
+    x   Extract from ARCHIVE_FILE
+    c   Create ARCHIVE_FILE from FILE
+    t   List the contents of ARCHIVE_FILE
+    f   Name of the ARCHIVE_FILE to use. Default is './default.tar'
+    z   Read/Write zlib compressed ARCHIVE_FILE (not always available)
+    v   Print filenames as they are added or extraced from ARCHIVE_FILE
+    h   Prints this help message
+
+=head1 SEE ALSO
+
+tar(1), L<Archive::Tar>.
+
+=cut
-- 
2.7.4