This commit is contained in:
Leeland Heins 2019-01-17 08:09:22 -06:00 committed by GitHub
parent a403e6f13a
commit 1b4ba33a04
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 8 additions and 0 deletions

View File

@ -12,6 +12,8 @@ use strict;
use DOS33; use DOS33;
my $debug = 0;
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) { while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
# Debug # Debug
if ($ARGV[0] eq '-d') { if ($ARGV[0] eq '-d') {

View File

@ -12,6 +12,8 @@ use strict;
use DOS33; use DOS33;
my $debug = 0;
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) { while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
# Debug # Debug
if ($ARGV[0] eq '-d') { if ($ARGV[0] eq '-d') {

View File

@ -12,6 +12,8 @@ use strict;
use DOS33; use DOS33;
my $debug = 0;
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) { while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
# Debug # Debug
if ($ARGV[0] eq '-d') { if ($ARGV[0] eq '-d') {

View File

@ -12,6 +12,8 @@ use strict;
use DOS33; use DOS33;
my $debug = 0;
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) { while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
# Debug # Debug
if ($ARGV[0] eq '-d') { if ($ARGV[0] eq '-d') {