Apple-2-Tools/DOS33-perl
1
0
Fork 0
mirror of https://github.com/softwarejanitor/DOS33.git synced 2024-12-22 06:29:16 +00:00
Code Issues Projects Releases Wiki Activity

Bug fix

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dos33delete.pl
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') {

2
dos33lock.pl
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') {

2
dos33rename.pl
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') {

2
dos33unlock.pl
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') {