Changeset 25027 for branches/pap/ippScripts/scripts/receive_source.pl

Timestamp:

Aug 7, 2009, 4:08:25 PM (17 years ago)

Author:

Paul Price

Message:

Merging trunk (r25026) to get up-to-date on old branch.

Location:

branches/pap

Files:

• . (modified) (1 prop)
• ippScripts/scripts/receive_source.pl (modified) (2 diffs)

branches/pap/ippScripts/scripts/receive_source.pl

@@ -64 +64 @@
 my @filesets = ();              # Filesets to add
 my @lines = split(/\n/, join "", @$stdout_buf); # Lines from output
+my $numFilesets = 0;
 foreach my $line ( @lines ) {
     $line =~ s/\#.*//g;
@@ -71 +72 @@
     my $fileset = $fields[1];
     push @filesets, $fileset if defined $fileset and $fileset =~ /\S+/;
+
+    # TODO don't overload recevietool.  Tune this limit
+    $numFilesets++;
+    last if $numFilesets >= 100;
 }