From a0d0e21ea6ea90a22318550944fe6cb09ae10cda Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@netlabs.com>
Date: Mon, 17 Oct 1994 23:00:00 +0000
Subject: perl 5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;

Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge
backup tapes from that era seem to be readable anymore.  I guess 13 years
exceeds the shelf life for that backup technology :-(.
]
---
 lib/shellwords.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/shellwords.pl')

diff --git a/lib/shellwords.pl b/lib/shellwords.pl
index 5d593daa50..1c45a5a090 100644
--- a/lib/shellwords.pl
+++ b/lib/shellwords.pl
@@ -17,13 +17,13 @@ sub shellwords {
     while ($_ ne '') {
 	$field = '';
 	for (;;) {
-	    if (s/^"(([^"\\]|\\[\\"])*)"//) {
+	    if (s/^"(([^"\\]|\\.)*)"//) {
 		($snippet = $1) =~ s#\\(.)#$1#g;
 	    }
 	    elsif (/^"/) {
 		die "Unmatched double quote: $_\n";
 	    }
-	    elsif (s/^'(([^'\\]|\\[\\'])*)'//) {
+	    elsif (s/^'(([^'\\]|\\.)*)'//) {
 		($snippet = $1) =~ s#\\(.)#$1#g;
 	    }
 	    elsif (/^'/) {
-- 
cgit v1.2.1