Changeset ccd028 for util/ReSequenceDX.pl.in

Timestamp:

May 26, 2008, 10:51:30 AM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

5eb05a

Parents:

d6f7f3

Message:

if no options are given, prints usage() and exit

File:

• util/ReSequenceDX.pl.in (modified) (2 diffs)

util/ReSequenceDX.pl.in

@@ -18 +18 @@
         "inputdir=s"    =>      \$Inputdir,
         "outputdir=s",   => \$Outputdir);
-if ($Help) { usage(); }
+if ($Help) { usage();}
 
 sub usage {
@@ -29 +29 @@
   --help                        this help
 EOF
-    exit 1;
+  exit 1;
 }
+
+if (!defined $Inputdir) { usage(); }
 
 # open new .dx files and copy standard ones files