From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Wed, 1 May 1996 04:10:21 +0000 (+0000)
Subject: Eliminate $`,$'  to avoid runtime penalty
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3730ca99e72f3ce32f6c70e2d17478439668ba13;p=p5sagit%2Fp5-mst-13.2.git

Eliminate $`,$'  to avoid runtime penalty
---

diff --git a/lib/dotsh.pl b/lib/dotsh.pl
index 8e9d962..877467e 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$$";