src/hg/utils/automation/Encode.pm 1.35

Index: src/hg/utils/automation/Encode.pm
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/utils/automation/Encode.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -b -B -U 4 -r1.34 -r1.35
--- src/hg/utils/automation/Encode.pm	26 Jan 2009 23:29:51 -0000	1.34
+++ src/hg/utils/automation/Encode.pm	7 Mar 2009 22:59:58 -0000	1.35
@@ -404,8 +404,15 @@
     my ($filePath) = @_;
     return $filePath =~ m/\.(tar\.|t)gz$/;
 }
 
+sub isTar
+# true if file ends in [.tar]
+{
+    my ($filePath) = @_;
+    return $filePath =~ m/\.tar$/;
+}
+
 sub isZipped
 {
     my ($filePath) = @_;
     return $filePath =~ m/\.gz$/;