diff options
| author | Jules Laplace <julescarbon@gmail.com> | 2018-06-16 13:15:48 +0200 |
|---|---|---|
| committer | Jules Laplace <julescarbon@gmail.com> | 2018-06-16 13:15:48 +0200 |
| commit | 68f7a8602be72fa1f2c2cc962f8a60c248193abe (patch) | |
| tree | c386bd83a8cd2001544c75771aed8537cfdd3e86 | |
| parent | 181e72339ea8c74637f885b74dbe6a54b9651eb9 (diff) | |
asdf
| -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) { |