Changeset 23635

Timestamp:

Mar 31, 2009, 1:57:41 PM (17 years ago)

Author:

jhoblitt

Message:

complain about obviously corrupted lines

File:

• trunk/Nebulous/scripts/stats.pl (modified) (1 diff)

trunk/Nebulous/scripts/stats.pl

@@ -17 +17 @@
 foreach my $line (split(/\n/, $data)) {
     my ($time, $method, $duration) = split(/\s+/, $line);
+
+    unless (defined $time and defined $method and defined $duration) {
+        warn "bad line: $line\n";
+        next;
+    }
 
     push @{$methods{$method}->{time}}, $time;