Path: utzoo!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!uunet!samsung!uakari.primate.wisc.edu!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: This looks like a bug
Message-ID: <10036@jpl-devvax.JPL.NASA.GOV>
Date: 19 Oct 90 18:06:30 GMT
References: <1990Oct19.134106.2596@uvaarpa.Virginia.EDU>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 19

In article <1990Oct19.134106.2596@uvaarpa.Virginia.EDU> worley@compass.uucp writes:
: The program:
: 
: 	$arg = 'f=(a)';
: 	print ($arg =~ /\(.*\)$/ ? "matches\n" : "doesn't match\n");
: 	print ($arg =~ /\(a\)$/ ? "matches\n" : "doesn't match\n");
: 
: with PL 36 prints:
: 
: 	doesn't match
: 	matches
: 
: I think both patterns should match.  (PL 28 handles this correctly.)
: Did I break something in PL 36?

No, it's a bug of long standing that was unmasked by a fix in 36.  I hope
to get fixes for all these glitches out by this evening.

Larry