886,10 → 886,11 |
{ |
push(@{$self->{sky}},$tok); |
push(@{$self->{SKY}}, "Sky Clear"); |
push(@{$self->{SKY_RUS}}, "Ясно"); |
push(@{$self->{SKY_RUS}}, "ясно"); |
push(@{$self->{SKY_RAW}},$tok); |
push(@{$self->{weather}},$tok); |
push(@{$self->{WEATHER}},"No significant weather"); |
push(@{$self->{WEATHER_RUS}},"без существенных изменений"); |
$self->{visibility} = '9999'; |
$parsestate = $expect_temperature; |
next; |
903,7 → 904,7 |
{ |
push(@{$self->{sky}},$tok); |
push(@{$self->{SKY}}, "Sky Clear"); |
push(@{$self->{SKY_RUS}}, "Ясно"); |
push(@{$self->{SKY_RUS}}, "ясно"); |
push(@{$self->{SKY_RAW}},$tok); |
print "[$tok] is a sky condition.\n" if $self->{debug}; |
$parsestate = $expect_clouds; |
1439,8 → 1440,8 |
## |
|
{ |
my $windspeed = $self->{WIND_MS}*3.6; |
$self->{TEMP_WC} = 13.12 + 0.6215*$self->{TEMP_C} - 11.37*($windspeed**0.16) + 0.3965*$self->{TEMP_C}*($windspeed**0.16); |
my $windspeed = $self->{WIND_MS}*3.6; |
$self->{TEMP_WC} = 13.12 + 0.6215*$self->{TEMP_C} - 11.37*($windspeed**0.16) + 0.3965*$self->{TEMP_C}*($windspeed**0.16); |
} |
|
## |
1894,7 → 1895,7 |
|
Test suite is small and incomplete. Needs work yet. |
|
Older versions of this module were installed as "METAR" instaed of |
Older versions of original module were installed as "METAR" instaed of |
"Geo::METAR" |
|
=head1 BUGS |