fixes and stuff

[biopieces.git] / code_perl / Maasha / Common.pm

diff --git a/code_perl/Maasha/Common.pm b/code_perl/Maasha/Common.pm
index bd6072904493cdefa341bbe8a86b07bfe56b59ee..9f4170c01dd6d2769159d6f86b5c40edea69d769 100644 (file)
--- a/code_perl/Maasha/Common.pm
+++ b/code_perl/Maasha/Common.pm
@@ -594,6 +594,7 @@ sub time_stamp_diff
     $min0  = $5;
     $sec0  = $6;
 
+    $sec0 += $day0 * 24 * 60 * 60;
     $sec0 += $hour0 * 60 * 60;;
     $sec0 += $min0  * 60;
 
@@ -605,6 +606,7 @@ sub time_stamp_diff
     $min1  = $5;
     $sec1  = $6;
 
+    $sec1 += $day1 * 24 * 60 * 60;
     $sec1 += $hour1 * 60 * 60;;
     $sec1 += $min1  * 60;