Values of @ARGV get lost with unused method call

[Heinz Knutzen]

This test program fails with B::C.

test3.pl:
=====
sub f1 {
my($self) = @_;
$self->f2;
}
sub f2 {}
sub new {}
print "@ARGV\n";
=====

Expected output:
$ perl test3.pl a b c
a b c

With B::C, output is missing:
$ perlcc -o test3 test3.pl
$ ./test3 a b c

(nothing)

Used versions:
- perl v5.10.1 (*) built for i486-linux-gnu-thread-mult
(from Ubuntu 10.04)
- B::C version 1.27

--
Heinz Knutzen