r54623 - in /trunk/libdatetime-astro-sunrise-perl/debian: changelog patches/series patches/sunrise-march.patch

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sun Mar 21 17:41:55 2010
New Revision: 54623

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54623
Log:
New patch sunrise-march.patch to fix sunset times around first day of
spring; thanks to Joey Hess for the bug report and to pointer to the patch
(closes: #574749).

Added:
    trunk/libdatetime-astro-sunrise-perl/debian/patches/sunrise-march.patch
Modified:
    trunk/libdatetime-astro-sunrise-perl/debian/changelog
    trunk/libdatetime-astro-sunrise-perl/debian/patches/series

Modified: trunk/libdatetime-astro-sunrise-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-astro-sunrise-perl/debian/changelog?rev=54623&op=diff
==============================================================================
--- trunk/libdatetime-astro-sunrise-perl/debian/changelog (original)
+++ trunk/libdatetime-astro-sunrise-perl/debian/changelog Sun Mar 21 17:41:55 2010
@@ -26,6 +26,9 @@
     Debian Policy since 3.8.0.
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
+  * New patch sunrise-march.patch to fix sunset times around first day of
+    spring; thanks to Joey Hess for the bug report and to pointer to the patch
+    (closes: #574749).
 
  -- gregor herrmann <gregor+debian at comodo.priv.at>  Sat, 01 Dec 2007 23:33:34 +0100
 

Modified: trunk/libdatetime-astro-sunrise-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-astro-sunrise-perl/debian/patches/series?rev=54623&op=diff
==============================================================================
--- trunk/libdatetime-astro-sunrise-perl/debian/patches/series (original)
+++ trunk/libdatetime-astro-sunrise-perl/debian/patches/series Sun Mar 21 17:41:55 2010
@@ -1,1 +1,2 @@
 drop_stray_debug.patch
+sunrise-march.patch

Added: trunk/libdatetime-astro-sunrise-perl/debian/patches/sunrise-march.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-astro-sunrise-perl/debian/patches/sunrise-march.patch?rev=54623&op=file
==============================================================================
--- trunk/libdatetime-astro-sunrise-perl/debian/patches/sunrise-march.patch (added)
+++ trunk/libdatetime-astro-sunrise-perl/debian/patches/sunrise-march.patch Sun Mar 21 17:41:55 2010
@@ -1,0 +1,49 @@
+Autor: Jean Forget
+Reviewed-By: gregor herrmann <gregoa at debian.org>
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=34770
+Bugs-Debian: #574749
+Origin: https://rt.cpan.org/Public/Bug/Display.html?id=34770
+Description: sunset times around 21st March
+
+--- a/Sunrise.pm
++++ b/Sunrise.pm
+@@ -153,12 +153,19 @@ sub sun_rise_set {
+     my ( $d, $lon, $lat, $altit, $h ) = @_;
+ 
+     
++    # Compute local sidereal time of this moment
+     my $sidtime = revolution( GMST0($d) + 180.0 + $lon );
+ 
+-    my ( $sRA, $sdec ) = sun_RA_dec($d);
++    # Compute Sun's RA + Decl + distance at this moment
++    my ( $sRA, $sdec, $sr ) = sun_RA_dec($d);
++
++    # Compute time when Sun is at south - in hours UT
+     my $tsouth  = 12.0 - rev180( $sidtime - $sRA ) /$h ;
+-    my $sradius = 0.2666 / $sRA;
+ 
++    # Compute the Sun's apparent radius, degrees
++    my $sradius = 0.2666 / $sr;
++
++    # Do correction to upper limb, if necessary
+     if ($upper_limb) {
+         $altit -= $sradius;
+     }
+@@ -300,7 +307,7 @@ sub sun_RA_dec {
+     #
+     # _RETURN
+     #
+-    # Sun's Right Ascension (RA) and Declination (dec)
++    # Sun's Right Ascension (RA), Declination (dec) and distance (r)
+     # 
+     #
+     my ($d) = @_;
+@@ -323,7 +330,7 @@ sub sun_RA_dec {
+     my $RA  = atan2d( $y, $x );
+     my $dec = atan2d( $z, sqrt( $x * $x + $y * $y ) );
+ 
+-    return ( $RA, $dec );
++    return ( $RA, $dec, $r );
+ 
+ }    # sun_RA_dec
+