diff options
Diffstat (limited to 'lib/open2.pl')
| -rw-r--r-- | lib/open2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/open2.pl b/lib/open2.pl index dcd68a8cd3..7d3b97030b 100644 --- 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; |