Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!hplabs!nsc!taux01!arielf
From: arielf@taux01.nsc.com (Ariel Faigon)
Newsgroups: comp.lang.perl
Subject: Memory leak in PERL PL-41 ?
Keywords: bug PERL meory-leak
Message-ID: <5052@taux01.nsc.com>
Date: 6 Dec 90 11:12:00 GMT
Reply-To: arielf@taux01.nsc.com (Ariel Faigon)
Followup-To: comp.lang.perl
Organization: National Semiconductor (IC) Ltd, Israel
Lines: 23

The following program should actually print-out its input.
Instead it outputs (note the 'cde:' garbage on the second line):
: 0; abcde
: cde:345678923456789ABCDEFGHIJKLMNOPQRSTUVWXYZfghijklmnopqrstuvwxyz
end of example

Looks like some kind of memory-leak to me.

#!/usr/local/bin/perl
while (<DATA>) {
	print $_;
        while (/(: \d+; )/) {s/$1//;} 
        s/abcde//;
}
__END__
: 0; abcde
: 1; 2345678923456789ABCDEFGHIJKLMNOPQRSTUVWXYZfghijklmnopqrstuvwxyz
end of example
-- 
Ariel Faigon, CTP group, NSTA
National Semiconductor (Israel)
6 Maskit st.  P.O.B. 3007, Herzlia 46104, Israel   Tel. (972)52-522312
arielf@taux01.nsc.com   @{hplabs,pyramid,sun,decwrl} 34 48 E / 32 10 N


Brought to you by Super Global Mega Corp .com