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);