[dev] Use of uninitialized value in Kernel::System::Time

[Uwe Voelker]

Hello,

in Kernel::System::Time line 236 Perl issues a warning "Use of
uninitialized value". It is this code snippet:

    # match mail time format
    elsif ($Param{String} =~
/((...),\s+|)(\d\d|\d)\s(...)\s(\d\d\d\d)\s(\d\d|\d):(\d\d|\d):(\d\d|\d)\s((\+|\-)(\d\d)(\d\d)|...)/)
{
        my $DiffTime = 0;
        if ($10 eq '+') {
#            $DiffTime = $DiffTime - ($11 * 60 * 60);
#            $DiffTime = $DiffTime - ($12 * 60);
        }
        elsif ($10 eq '-') {
#            $DiffTime = $DiffTime + ($11 * 60 * 60);
#            $DiffTime = $DiffTime + ($12 * 60);
        }

The warning is in the line with "if ($10 eq '+') {" because $10 is undef.

What is the regexp supposed to match? Why is there a pipe symbol after
"/((...),\s+" and before the ")"? Could this be the problem?


Thanks,
bye, Uwe
_______________________________________________
OTRS mailing list: dev - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/dev
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/dev