#!/usr/bin/perl -w
my $file = pop(@ARGV);
my %meta;
-$ENV{'P4PORT'} = 'bactrian:1667';
-$ENV{'P4CLIENT'} = 'camel-linux';
+$ENV{'P4PORT'} ||= 'bactrian:1667';
+$ENV{'P4CLIENT'} ||= 'ni-s';
open(FILE,$file) || die "Cannot open $file:$!";
while (<FILE>)
{
warn "$code from patch\n";
foreach (@results)
{
- if (/patching\s+file\s*(.*?)\s*$/)
+ if (/[Pp]atching\s+file\s*(\S+)/)
{
push(@edit,$1);
}
_exit(exec $cmd);
}
}
+