databind
vitalif 2009-10-23 13:39:24 +00:00 committed by Vitaliy Filippov
parent 19a4f12af5
commit 4630d629c0
1 changed files with 3 additions and 3 deletions

View File

@ -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;