mirror of
https://github.com/softwarejanitor/DOS33.git
synced 2024-12-02 09:49:40 +00:00
Bug fix
This commit is contained in:
parent
a403e6f13a
commit
1b4ba33a04
@ -12,6 +12,8 @@ use strict;
|
||||
|
||||
use DOS33;
|
||||
|
||||
my $debug = 0;
|
||||
|
||||
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
|
||||
# Debug
|
||||
if ($ARGV[0] eq '-d') {
|
||||
|
@ -12,6 +12,8 @@ use strict;
|
||||
|
||||
use DOS33;
|
||||
|
||||
my $debug = 0;
|
||||
|
||||
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
|
||||
# Debug
|
||||
if ($ARGV[0] eq '-d') {
|
||||
|
@ -12,6 +12,8 @@ use strict;
|
||||
|
||||
use DOS33;
|
||||
|
||||
my $debug = 0;
|
||||
|
||||
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
|
||||
# Debug
|
||||
if ($ARGV[0] eq '-d') {
|
||||
|
@ -12,6 +12,8 @@ use strict;
|
||||
|
||||
use DOS33;
|
||||
|
||||
my $debug = 0;
|
||||
|
||||
while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
|
||||
# Debug
|
||||
if ($ARGV[0] eq '-d') {
|
||||
|
Loading…
Reference in New Issue
Block a user