Debug
parent
19a4f12af5
commit
4630d629c0
|
@ -481,11 +481,11 @@ sub str2time
|
||||||
require Date::Manip;
|
require Date::Manip;
|
||||||
$orig_DIRussian = \&Date::Manip::_Date_Init_Russian;
|
$orig_DIRussian = \&Date::Manip::_Date_Init_Russian;
|
||||||
*Date::Manip::_Date_Init_Russian = \&date_init_russian;
|
*Date::Manip::_Date_Init_Russian = \&date_init_russian;
|
||||||
Date_Init(@DATE_INIT);
|
Date::Manip::Date_Init(@DATE_INIT);
|
||||||
$init = 1;
|
$init = 1;
|
||||||
}
|
}
|
||||||
$str = lc $str;
|
$str = lc $str;
|
||||||
$time = UnixDate(ParseDate($str),"%s");
|
$time = Date::Manip::UnixDate(Date::Manip::ParseDate($str),"%s");
|
||||||
return $time if defined $time;
|
return $time if defined $time;
|
||||||
$time = $str;
|
$time = $str;
|
||||||
$time =~ s/(\d{2})\.(\d{2})\.(\d{4})/$2\/$1\/$3/gso;
|
$time =~ s/(\d{2})\.(\d{2})\.(\d{4})/$2\/$1\/$3/gso;
|
||||||
|
@ -698,7 +698,7 @@ my $litsplit_types = {
|
||||||
sub litsplit
|
sub litsplit
|
||||||
{
|
{
|
||||||
my ($re, $s, $lim, $lit) = @_;
|
my ($re, $s, $lim, $lit) = @_;
|
||||||
$lit = $litsplit_types{lc $$lit} if ref($lit) eq 'SCALAR';
|
$lit = $litsplit_types->{lc $$lit} if ref($lit) eq 'SCALAR';
|
||||||
$lit ||= $litsplit_AQG;
|
$lit ||= $litsplit_AQG;
|
||||||
my @r;
|
my @r;
|
||||||
my $l = 0;
|
my $l = 0;
|
||||||
|
|
Loading…
Reference in New Issue