Path: utzoo!utgpu!watserv1!watmath!att!att!dptg!ulysses!andante!mit-eddie!wuarchive!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!aplcen!haven!uvaarpa!mmdf
From: worley@compass.uucp (Dale Worley)
Newsgroups: comp.lang.perl
Subject: This looks like a bug
Message-ID: <1990Oct19.134106.2596@uvaarpa.Virginia.EDU>
Date: 19 Oct 90 13:41:06 GMT
Sender: mmdf@uvaarpa.Virginia.EDU (Uvaarpa Mail System)
Reply-To: worley@compass.uucp
Organization: The Internet
Lines: 20

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?

Dale

Dale Worley		Compass, Inc.			worley@compass.com
--
I'm President of the United States and I'm NOT going to eat any more
broccoli! -- George Bush