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

23 Dec 2005

      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

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

Uwe Voelker