"Unknown error" using glob

[Justin Mason]

Binary package hint: perl

Easiest to demo this bug:

: 448...; cat Testcase.pm
package Testcase;
use warnings;
use strict;
use Testcase;
sub foo { };

#foo "bar"; # is fine, exits 0
foo "bar"); # compilation fails with 'Unknown error'

glob "irrelevant";
1;

: 449...; perl -I. Testcase.pm
Unknown error
Compilation failed in require at Testcase.pm line 4.
BEGIN failed--compilation aborted at Testcase.pm line 4.

If I switch the commenting on the "foo" lines, I instead see:

Subroutine foo redefined at Testcase.pm line 6.

which is what you'd expect. If I comment the "glob" line I see:

syntax error at Testcase.pm line 9, near ""bar")"
Compilation failed in require at Testcase.pm line 4.
BEGIN failed--compilation aborted at Testcase.pm line 4.

Which again is what you'd expect.

I reported this upstream as http://rt.perl.org/rt3/Ticket/Display.html?id=61518 ;
they noted that it was fixed:

'This seems to have been fixed with the change
33265 that solved RT#46472. The fix has been integrated into the 5.10
maint branch (with change 33940) and will be in 5.10.1.'

Just reporting it here too, since this is the default perl on 8.10.

cheers,

--j.