Index: trunk/ippScripts/scripts/receive_source.pl
===================================================================
--- trunk/ippScripts/scripts/receive_source.pl	(revision 23894)
+++ trunk/ippScripts/scripts/receive_source.pl	(revision 24744)
@@ -64,4 +64,5 @@
 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,4 +72,8 @@
     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;
 }