diff options
| author | GriffinR <griffin.g.richards@gmail.com> | 2021-10-14 10:15:08 -0400 |
|---|---|---|
| committer | GriffinR <griffin.g.richards@gmail.com> | 2021-10-14 10:15:08 -0400 |
| commit | ceb871e3fafb8bc174e4dd355f64ec50a67c9c95 (patch) | |
| tree | 0882dd12f926405ae2836eb2f82018aa3f09fcd1 | |
| parent | 2f6928f01688728ef1a390de5caa6990dc60bf31 (diff) | |
Process calcrom options first
| -rwxr-xr-x | .github/calcrom/calcrom.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/.github/calcrom/calcrom.pl b/.github/calcrom/calcrom.pl index 2aaf25c43..c351c7612 100755 --- a/.github/calcrom/calcrom.pl +++ b/.github/calcrom/calcrom.pl @@ -5,14 +5,14 @@ use Getopt::Long; my $usage = "Usage: calcrom.pl file.map [--data]\n"; -(@ARGV >= 1) +my $showData; +GetOptions("data" => \$showData) or die $usage; + +(@ARGV == 1) or die $usage; open(my $file, $ARGV[0]) or die "ERROR: could not open file '$ARGV[0]'.\n"; -my $showData; -GetOptions("data" => \$showData) or die $usage; - my $src = 0; my $asm = 0; my $srcdata = 0; |