Select Code to Download

C:\PerlProjects\Monks>perl regextest.pl
Start Basic Standard Services:
...
  Starting $name='OP Mover' $last=undef ($name=~/$last/i)=0
Use of uninitialized value $last in regexp compilation at regextest.pl
+ line 39.
Installation completed

sub startStandardServices {
    my $last = shift;
...
sub startGeneralServices {
    my $last = shift;
    $last //='EVERYTHING';  #ADDED

C:\PerlProjects\Monks>perl regextest.pl
...
  Starting $name='OP Monitor' $last='EVERYTHING' ($name=~/$last/i)=0
  Starting $name='OP Mover' $last='EVERYTHING' ($name=~/$last/i)=0
Installation completed