1 package Catalyst::Restarter::Win32;
6 extends 'Catalyst::Restarter';
10 isa => 'Proc::Background',
17 # This is totally hack-tastic, and is probably much slower, but it
19 my @command = ( $^X, map("-I$_", @INC), $0, grep { ! /^\-r/ } @{ $self->argv } );
21 my $child = Proc::Background->new(@command);
23 $self->_child($child);
29 return unless $self->_child;
34 __PACKAGE__->meta->make_immutable;
42 Catalyst::Restarter::Win32 - Uses Proc::Background to manage process restarts
46 This class uses L<Proc::Background>, which in turn uses
47 L<Win32::Process>. The new process is run using the same command-line
48 as the original script, but without any restart-based options.
50 This is a big hack, but using forks just does not work on Windows.
54 L<Catalyst::Restarter>, L<Catalyst>, <File::ChangeNotify>
58 Catalyst Contributors, see Catalyst.pm
62 This program is free software, you can redistribute it and/or modify
63 it under the same terms as Perl itself.