Changeset 20074 for branches/vendor/third/perl/Porting/apply

Timestamp:

02/09/04 14:10:55 (6 years ago)

Author:

zacheiss

Message:

Import perl 5.8.3.

Files:

• branches/vendor/third/perl/Porting/apply (modified) (3 diffs)

branches/vendor/third/perl/Porting/apply

@@ -2 +2 @@
 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>)
@@ -18 +18 @@
 foreach (@results)
  {
-  if (/patching\s+file\s*(.*?)\s*$/)
+  if (/[Pp]atching\s+file\s*(\S+)/)
    {
     push(@edit,$1);
@@ -70 +70 @@
   }
 }
+