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

23 Dec 2005

      Hi,

You get this error because $10 isn't populate by you regex.

After this line
/((...),\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)|...)/)

add following code to check why $10 is empty
$Self->{LogObject}->Log(Priotity => 'notice',Message=>"1 -> $1 2 -> $3 
....to $10");

Cordialement / Regards

Alexandre FOUREY
Consultant
alexandre@fourey.fr
Cell Phone 33 (0)6 67 67 50 12

Uwe Voelker wrote:
...
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