Podría ser... que tuvieras un Time::Seconds viejo. ¿Qué versión de Perl estás usando?
Esto me funciona desde la línea de comandos:
Using bash Syntax Highlighting
$ perl -MTime::Seconds -E '$v = Time::Seconds->new(3453459); say $v->pretty'
39 days, 23 hours, 17 minutes, 39 seconds
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Puedes hacer una cosa: localiza el archivo
Time/Seconds.pm En mi ordenador está en
/usr/lib/perl5/5.16.2/i586-linux-thread-multi/Time/Seconds.pm
/usr/lib/perl5/5.16.2/x86_64-linux-thread-multi/Time/Seconds.pm
y ahora lo abres y miras a ver si encuentras esto:
Using perl Syntax Highlighting
sub pretty {
my $s = shift;
my $str = "";
if ($s < 0) {
$s = -$s;
$str = "minus ";
}
if ($s >= ONE_MINUTE) {
if ($s >= ONE_HOUR) {
if ($s >= ONE_DAY) {
my $days = sprintf("%d", $s->days); # does a "floor"
$str = $days . " days, ";
$s -= ($days * ONE_DAY);
}
my $hours = sprintf("%d", $s->hours);
$str .= $hours . " hours, ";
$s -= ($hours * ONE_HOUR);
}
my $mins = sprintf("%d", $s->minutes);
$str .= $mins . " minutes, ";
$s -= ($mins * ONE_MINUTE);
}
$str .= $s->seconds . " seconds";
return $str;
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Y si no está, pues lo agregas
O actualizas a un Perl más moderno, si puedes.
