[Bio] / FigKernelPackages / Tracer.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Tracer.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.75, Fri Oct 6 00:41:44 2006 UTC revision 1.76, Fri Oct 6 15:39:58 2006 UTC
# Line 959  Line 959 
959      my $retVal;      my $retVal;
960      # Parse the date.      # Parse the date.
961      if ($dateString =~ m#(\d+)/(\d+)/(\d+)\s+(\d+):(\d+):(\d+)#) {      if ($dateString =~ m#(\d+)/(\d+)/(\d+)\s+(\d+):(\d+):(\d+)#) {
962          # Create a time object.          # Create a time object. Note we need to convert the day, month,
963          $retVal = timelocal($6, $5, $4, $2, $1, $3);          # and year to a different base. Years count from 1900, and
964            # the internal month value is relocated to January = 0.
965            $retVal = timelocal($6, $5, $4, $2, $1 - 1, $3 - 1900);
966      }      }
967      # Return the result.      # Return the result.
968      return $retVal;      return $retVal;

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3