undo change#5506; add patch to make blank line warnings optional

[perl5.git] / lib / Shell.pm

diff --git a/lib/Shell.pm b/lib/Shell.pm
index 706216a..62aa829 100644 (file)
--- a/lib/Shell.pm
+++ b/lib/Shell.pm
@@ -1,6 +1,6 @@
 package Shell;
 use 5.005_64;
-our($capture_stderr $VERSION);
+our($capture_stderr, $VERSION);
 
 $VERSION = '0.2';
 
@@ -72,7 +72,7 @@ AUTOLOAD {
                    for (\@arr) {
                        s/"/\\\\"/g;
                        s/\\\\\\\\"/\\\\\\\\"""/g;
-                       \$_ = qq["\$_"] if /\s/;
+                       \$_ = qq["\$_"] if /\\s/;
                    }
                }
                else {