fix to allow decimals again #13

Merged
merged 1 commit into from Mar 25, 2013
Jump to file
+1 −1
Split
View
@@ -232,7 +232,7 @@ sub flow {
my $ignored = 0;
foreach (sort @Data) {
chomp;
- my ($stack, $samples) = (/^(.*)\s+(\d+(?:\.\d*))$/);
+ my ($stack, $samples) = (/^(.*)\s+(\d+(?:\.\d*)?)$/);
unless (defined $samples) {
++$ignored;
next;