Eliminate use of $& to avoid runtime penalty

diff --git a/lib/open2.pl b/lib/open2.pl
index dcd68a8..7d3b970 100644 (file)
--- a/lib/open2.pl
+++ b/lib/open2.pl
@@ -28,8 +28,8 @@ sub main'open2 {
 
     # force unqualified filehandles into callers' package
     local($package) = caller;
-    $dad_rdr =~ s/^[^']+$/$package'$&/;
-    $dad_wtr =~ s/^[^']+$/$package'$&/;
+    $dad_rdr =~ s/^([^']+$)/$package'$1/;
+    $dad_wtr =~ s/^([^']+$)/$package'$1/;
 
     local($kid_rdr) = ++$fh;
     local($kid_wtr) = ++$fh;

diff --git a/lib/open3.pl b/lib/open3.pl
index 7c8b6ae..03e151c 100644 (file)
--- a/lib/open3.pl
+++ b/lib/open3.pl
@@ -46,9 +46,9 @@ sub main'open3 {
 
     # force unqualified filehandles into callers' package
     local($package) = caller;
-    $dad_wtr =~ s/^[^']+$/$package'$&/;
-    $dad_rdr =~ s/^[^']+$/$package'$&/;
-    $dad_err =~ s/^[^']+$/$package'$&/;
+    $dad_wtr =~ s/^([^']+$)/$package'$1/;
+    $dad_rdr =~ s/^([^']+$)/$package'$1/;
+    $dad_err =~ s/^([^']+$)/$package'$1/;
 
     local($kid_rdr) = ++$fh;
     local($kid_wtr) = ++$fh;