s/[\n\r]+//;
s/#.*//;
s/\s+$//;
- next if ( /^\s*$/ || !/^([\w\.-\\]+\s+.*)/ );
+ next if ( /^\s*$/ || !/^([\w\.\\-]+\s+.*)/ );
#
# Split on white space, except if preceded by \
# using zero-width negative look-behind assertion
close(STDERR);
open(STDERR, ">&STDOUT");
exec(@$cmd);
+ print("Exec of @$cmd failed\n");
+ exit(1);
}
#
# The parent gathers the output from the child