(TimeOfArray) fix retrieval of expiration date (brown paper bug #21662)

1 files changed, 2 insertions, 2 deletions

diff --git a/userdrake b/userdrake
index dd414f6..07d829d 100755
--- a/userdrake
+++ b/userdrake
@@ -982,9 +982,9 @@ sub ConvTime {
 }
 
 sub TimeOfArray {
-    my ($_reltime, $cm) = @_;
+    my ($reltime, $cm) = @_;
     my $h; my %mth = (Jan => 1, Feb => 2, Mar => 3, Apr => 4, May => 5, Jun => 6, Jul => 7, Aug => 8, Sep => 9, Oct => 10, Nov => 11, Dec => 12);
-    #my $t = localtime($reltime * 24 * 60 * 60) =~ /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\d+)/;
+    my $_t = localtime($reltime * 24 * 60 * 60) =~ /(\S+)\s+(\S+)\s+(\d+)\s+(\S+)\s+(\d+)/;
     $h->{daystr} = $1; $h->{month} = $2; $h->{dayint} = $3; $h->{year} = $5;
     $cm and $h->{month} = $mth{$2}; 
     $h;