src/hg/encode/encodeValidate/doEncodeValidate.pl 1.160

1.160 2009/03/05 21:30:39 mikep
get rid of @_ deprecated warning
Index: src/hg/encode/encodeValidate/doEncodeValidate.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeValidate/doEncodeValidate.pl,v
retrieving revision 1.159
retrieving revision 1.160
diff -b -B -U 4 -r1.159 -r1.160
--- src/hg/encode/encodeValidate/doEncodeValidate.pl	5 Mar 2009 02:57:16 -0000	1.159
+++ src/hg/encode/encodeValidate/doEncodeValidate.pl	5 Mar 2009 21:30:39 -0000	1.160
@@ -943,9 +943,10 @@
     while(<$fh>) {
         chomp;
         $lineNumber++;
         next if m/^#/;
-	my $cols = split;
+	my @fields = split /\s+/;
+	my $cols = scalar(@fields);
         die "Failed $type validation, file '$file'; line $lineNumber: line=[$_]\n"
 	    unless $cols == 3 or $cols == 5 or $cols == 7;
 #            unless m/^([^\t]+)\t(\d+\.\d+)\t(\d+\.\d+)$/;
         last if($opt_quick && $lineNumber >= $quickCount);