1999-02-26 Ben Elliston <bje@cygnus.com>

	* autoscan.pl (parse_args): Make compatible with Perl version 4.

diff --git a/autoscan.in b/autoscan.in
index 0e29a790353bc74c37c0d4e5a22c3b918505a8c4..ac394c7f5c72d8746b6afbb193e59d38ac27f646 100644 (file)
--- a/autoscan.in
+++ b/autoscan.in
@@ -39,7 +39,7 @@ exit 0;
 # Process any command line arguments.
 sub parse_args
 {
-    local ($usage) = << 'EOD';
+    local ($usage) = <<'EOD';
 Usage: autoscan [OPTION] ... [SRCDIR]
 
 Examine source files in the directory tree rooted at SRCDIR, or the

diff --git a/autoscan.pl b/autoscan.pl
index 0e29a790353bc74c37c0d4e5a22c3b918505a8c4..ac394c7f5c72d8746b6afbb193e59d38ac27f646 100644 (file)
--- a/autoscan.pl
+++ b/autoscan.pl
@@ -39,7 +39,7 @@ exit 0;
 # Process any command line arguments.
 sub parse_args
 {
-    local ($usage) = << 'EOD';
+    local ($usage) = <<'EOD';
 Usage: autoscan [OPTION] ... [SRCDIR]
 
 Examine source files in the directory tree rooted at SRCDIR, or the

diff --git a/bin/autoscan.in b/bin/autoscan.in
index 0e29a790353bc74c37c0d4e5a22c3b918505a8c4..ac394c7f5c72d8746b6afbb193e59d38ac27f646 100644 (file)
--- a/bin/autoscan.in
+++ b/bin/autoscan.in
@@ -39,7 +39,7 @@ exit 0;
 # Process any command line arguments.
 sub parse_args
 {
-    local ($usage) = << 'EOD';
+    local ($usage) = <<'EOD';
 Usage: autoscan [OPTION] ... [SRCDIR]
 
 Examine source files in the directory tree rooted at SRCDIR, or the