Re: Another "Find the bug!" Node

[jimt]

For those people trying to figure out the problem on their own...I had all sorts of trouble figuring out the problem here, due to the test script I had set up.

This works fine.

#!/usr/bin/perl
use strict;
use warnings;

use Package1 qw(:all);
use Package2 qw(:all);

$\ = $/;
print this();
print that();


print this();
print that();
print foobar();

To properly see the error, just make sure that Package2 is imported before Package1.

#!/usr/bin/perl
use strict;
use warnings;

use Package2 qw(:all);
use Package1 qw(:all);

$\ = $/;
print this();
print that();


print this();
print that();
print foobar();

Until the other solutions were posted, I was sitting here scratching my head saying, "What bug?"