| Subject: | different days between language zones |
The date for zodiac depends on a specific zone.
Sample for us:
Scorpio October 23 to Nov. 22
Sample for german:
Scorpio: October 23 - Nov. 21
My quickfix:
sub zodiac {
my ( $loc, $birth_year, $birth_month, $birth_day ) = @_;
#$birth_month = $birth_month - 1; # Assuming $birth_month is 0..11
my ( $day, $month, $year ) = (localtime)[ 3 .. 5 ];
$year += 1900;
$birth_day-- if ( defined $loc && $loc eq 'de_de' && $birth_day == 22 );
my $dt = DateTime->new(
year => $year,
month => $birth_month,
day => $birth_day,
);
return zodiac_date_name($dt);
}