equal
deleted
inserted
replaced
146 if ($value =~ /([^,]*),([^,]*)/) |
146 if ($value =~ /([^,]*),([^,]*)/) |
147 { |
147 { |
148 my $category = $1; |
148 my $category = $1; |
149 my $count = $2; |
149 my $count = $2; |
150 |
150 |
151 if (!$category || !$count) |
151 if (!$category || !defined $count || $count eq '') |
152 { |
152 { |
153 print "ERROR: Category or count empty: \"$value\"\n"; |
153 print "ERROR: Category or count empty: \"$value\"\n"; |
154 return 1; |
154 return 1; |
155 } |
155 } |
156 print " found ($category,$count) for table 'failures'\n" if ($verbose); |
156 print " found ($category,$count) for table 'failures'\n" if ($verbose); |