From 1b4ba33a04a34930c5c0036b54de6a0a82773e5c Mon Sep 17 00:00:00 2001 From: Leeland Heins Date: Thu, 17 Jan 2019 08:09:22 -0600 Subject: [PATCH] Bug fix --- dos33delete.pl | 2 ++ dos33lock.pl | 2 ++ dos33rename.pl | 2 ++ dos33unlock.pl | 2 ++ 4 files changed, 8 insertions(+) diff --git a/dos33delete.pl b/dos33delete.pl index 8a3628a..630b2d1 100644 --- a/dos33delete.pl +++ b/dos33delete.pl @@ -12,6 +12,8 @@ use strict; use DOS33; +my $debug = 0; + while (defined $ARGV[0] && $ARGV[0] =~ /^-/) { # Debug if ($ARGV[0] eq '-d') { diff --git a/dos33lock.pl b/dos33lock.pl index 9da47a2..2244f99 100644 --- a/dos33lock.pl +++ b/dos33lock.pl @@ -12,6 +12,8 @@ use strict; use DOS33; +my $debug = 0; + while (defined $ARGV[0] && $ARGV[0] =~ /^-/) { # Debug if ($ARGV[0] eq '-d') { diff --git a/dos33rename.pl b/dos33rename.pl index d6ddb6d..331efd0 100644 --- a/dos33rename.pl +++ b/dos33rename.pl @@ -12,6 +12,8 @@ use strict; use DOS33; +my $debug = 0; + while (defined $ARGV[0] && $ARGV[0] =~ /^-/) { # Debug if ($ARGV[0] eq '-d') { diff --git a/dos33unlock.pl b/dos33unlock.pl index e8d861e..c276fdb 100644 --- a/dos33unlock.pl +++ b/dos33unlock.pl @@ -12,6 +12,8 @@ use strict; use DOS33; +my $debug = 0; + while (defined $ARGV[0] && $ARGV[0] =~ /^-/) { # Debug if ($ARGV[0] eq '-d') {