diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-05-01 04:10:21 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-05-01 04:10:21 +0000 |
| commit | 3730ca99e72f3ce32f6c70e2d17478439668ba13 (patch) | |
| tree | d51cf9c1c5330eb3498a75366773afe9fccccf35 /lib | |
| parent | 1446e948ba18726fe1c1ab437e5f9a9a6a1f2ace (diff) | |
| download | perl-3730ca99e72f3ce32f6c70e2d17478439668ba13.tar.gz | |
Eliminate $`,$' to avoid runtime penalty
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/dotsh.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/dotsh.pl b/lib/dotsh.pl index 8e9d9620e5..877467eb96 100644 --- a/lib/dotsh.pl +++ b/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$$"; |