diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/dotsh.pl')
| -rw-r--r-- | gnu/usr.bin/perl/lib/dotsh.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/dotsh.pl b/gnu/usr.bin/perl/lib/dotsh.pl index 8e9d9620e59..877467eb961 100644 --- a/gnu/usr.bin/perl/lib/dotsh.pl +++ b/gnu/usr.bin/perl/lib/dotsh.pl @@ -53,8 +53,8 @@ sub dotsh { open (_SH_ENV, "/tmp/_sh_env$$") || die "Could not open /tmp/_sh_env$$!\n"; while (<_SH_ENV>) { chop; - /=/; - $ENV{$`} = $'; + m/^([^=]*)=(.*)/s; + $ENV{$1} = $2; } close (_SH_ENV); system "rm -f /tmp/_sh_env$$"; |