diff options
Diffstat (limited to 'scripts/builders/pair-dataset-link.pl')
| -rw-r--r-- | scripts/builders/pair-dataset-link.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/scripts/builders/pair-dataset-link.pl b/scripts/builders/pair-dataset-link.pl index 6a5a643..7805247 100644 --- a/scripts/builders/pair-dataset-link.pl +++ b/scripts/builders/pair-dataset-link.pl @@ -7,22 +7,20 @@ use IO::Handle; STDERR->autoflush(1); STDOUT->autoflush(1); -my $dataset; my $sequence_dir; my $ab_dir; my $dt; my $wait; my $buzz; GetOptions ( - "dataset" => \$dataset, "sequence_dir" => \$sequence_dir, "ab_dir" => \$ab_dir, "dt" => \$dt, ) -print $dataset . "\n"; -if (! $dataset || ! $sequence_dir || ! $ab_dir || ! -e $sequence_dir) { - print "usage: --dataset ... --sequence_dir ... --ab_dir ... --dt 1\n"; +print $sequence_dir . "\n"; +if (! $sequence_dir || ! $ab_dir || ! -e $sequence_dir) { + print "usage: --sequence_dir ... --ab_dir ... --dt 1\n"; exit(1); } if (! $dt) { |