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;
40 Catalyst::Restarter::Win32 - Uses Proc::Background to manage process restarts
44 This class uses L<Proc::Background>, which in turn uses
45 L<Win32::Process>. The new process is run using the same command-line
46 as the original script, but without any restart-based options.
48 This is a big hack, but using forks just does not work on Windows.
52 L<Catalyst::Restarter>, L<Catalyst>, <File::ChangeNotify>
56 Catalyst Contributors, see Catalyst.pm
60 This program is free software, you can redistribute it and/or modify
61 it under the same terms as Perl itself.