- added information about usage

Changed files:
    pldcpan.pl -> 1.3

diff --git a/pldcpan.pl b/pldcpan.pl
index 803ea8b185fd83b55a1439e3781a2fb5c16db09a..ec438781c0345c9bdb6e10cc116eee2aff0e38a0 100644 (file)
--- a/pldcpan.pl
+++ b/pldcpan.pl
@@ -8,12 +8,28 @@ use Template     ();
 use YAML         ();
 use Digest::MD5  ();
 
-# $Id$
-
 GetOptions(\%opts, 'verbose|v', 'modulebuild|B', 'makemaker|M');
 eval "use Data::Dump qw(pp);" if $opts{verbose};
 die $@ if $@;
 
+unless (@ARGV) {
+       die <<'EOF';
+usage:
+       pldcpan.pl [ OPTIONS ] <list of CPAN archives>
+
+options:
+       -v|--verbose      shout, and shout loud
+       -B|--modulebuild  prefer Module::Build
+       -M|--makemaker    prefer ExtUtils::MakeMaker (default)
+
+This program uncompresses given archives in the current directory
+and -- more or less successfully -- attempts to write corresponding
+perl-*.spec files.
+
+$Id$
+EOF
+}
+
 # get maximum information from archive name
 sub test_directory {
        my $fooball = shift;
@@ -34,7 +50,7 @@ sub test_directory {
                )
                -
                (\d[\d._-]*)
-               $ #ix
+               /*$ #ix
          )
        {
                warn " -- cannot resolve name and version: '$fooball'\n";