fixed seq qual length check

[biopieces.git] / www / index.cgi

diff --git a/www/index.cgi b/www/index.cgi
index c068200ad8c9628773c0fc73a4f3b2d39f21c5e8..64314fa6520ff70122f3b54af9e6c473c8ee0665 100755 (executable)
--- a/www/index.cgi
+++ b/www/index.cgi
@@ -29,6 +29,7 @@ use CGI;
 use URI::Escape;
 use Data::Dumper;
 use Digest::MD5;
+use Time::HiRes;
 use Maasha::Common;
 use Maasha::Filesys;
 use Maasha::Calc;
@@ -1571,3 +1572,7 @@ sub section_dna
 
 
 __END__
+
+
+    # my $t0 = Time::HiRes::gettimeofday();
+    # my $t1 = Time::HiRes::gettimeofday(); print STDERR "Time: " . ( $t1 - $t0 ) . "\n";