diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 1997-11-30 08:00:32 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 1997-11-30 08:00:32 +0000 |
| commit | 3d06de7fcff1d605886d3c63220956f7260ddb84 (patch) | |
| tree | da5aa4b971926e3ef1f9263bbdeb714053206d02 /gnu/usr.bin/perl/lib/dotsh.pl | |
| parent | c54c74271308a8fd18f1bc3a193343d079ebe481 (diff) | |
perl 5.004_04
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$$"; |