package Catalyst::Restarter::Win32;
+
use Moose;
use Proc::Background;
-use namespace::autoclean;
extends 'Catalyst::Restarter';
# 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, map("-I$_", @INC), $0, grep { ! /^\-r/ } @{ $self->argv } );
my $child = Proc::Background->new(@command);
$self->_child->die;
}
+__PACKAGE__->meta->make_immutable;
+
1;
__END__