# This is totally hack-tastic, and is probably much slower, but it
# does seem to work.
- my @command = ( $^X, $0, grep { ! /^\-r/ } @ARGV );
+ my @command = ( $^X, $0, grep { ! /^\-r/ } @{ $self->argv } );
my $child = Proc::Background->new(@command);