perl 5.003_06: pod/perlcall.pod pod/perldata.pod pod/perldebug.pod pod/perlembed...

[p5sagit/p5-mst-13.2.git] / lib / open2.pl

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;