worley@compass.uucp (Dale Worley) (10/19/90)
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
lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) (10/20/90)
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