Process calcrom options first

This commit is contained in:
GriffinR 2021-10-14 10:15:08 -04:00
parent 2f6928f016
commit ceb871e3fa
1 changed files with 4 additions and 4 deletions

View File

@ -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;