- my ($rise, $set, $az, $dec, $loss )=Sun::rise_set($yr,$month,$day,$hr,$min,$l->[1],$l->[2],0);
- $l->[3] =~ s{(-\d+|/\w+)$}{};
- if( !$n_offset ) {
+ my ($dawn, $rise, $set, $dusk, $az, $dec )=Sun::rise_set($yr,$month,$day,$hr,$min,$l->[1],$l->[2],0);
+
+ $l->[3] =~ s{(-\d+|/\w+)$}{};
+ if ( !$n_offset ) {