Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: Exception error in perl code

by grep (Monsignor)
on Jun 26, 2009 at 15:15 UTC ( #775089=note: print w/ replies, xml ) Need Help??

in reply to Reaped: Exception error in perl code

Ok - let's look at the information you're given.
Uncaught exception from user code: Day '0' out of range 1..31 Line 405 in the program points to "return timelocal(0, 0, 0, @dmy) / ( +24 * 60 * 60);

So where you would look is that line and it involves something about the day being 0 and not in the range of 1..31. If you look at the docs for Time::Local the example for timelocal looks like this.

$time = timelocal($sec,$min,$hour,$mday,$mon,$year);

$mday is the 4th item. So it in your array @dmy. So that is where you want to look. Use Data::Dumper to print the value of @dmy right before the offending line.

use Data::Dumper; print Dumper \@dmy; return timelocal(0, 0, 0, @dmy) / (24 * 60 * 60);
One dead unjugged rabbit fish later...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://775089]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2016-06-30 09:14 GMT
Find Nodes?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...

    Results (391 votes). Check out past polls.