r20984 - in /trunk/libgeo-metar-perl/debian: changelog patches/various.patch

[tincho at users.alioth.debian.org]

Author: tincho
Date: Sat Jun 14 01:27:10 2008
New Revision: 20984

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=20984
Log:
Correct warning introduced by various.patch.

Modified:
    trunk/libgeo-metar-perl/debian/changelog
    trunk/libgeo-metar-perl/debian/patches/various.patch

Modified: trunk/libgeo-metar-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgeo-metar-perl/debian/changelog?rev=20984&op=diff
==============================================================================
--- trunk/libgeo-metar-perl/debian/changelog (original)
+++ trunk/libgeo-metar-perl/debian/changelog Sat Jun 14 01:27:10 2008
@@ -1,3 +1,9 @@
+libgeo-metar-perl (1.15-2) UNRELEASED; urgency=low
+
+  * Correct warning introduced by various.patch.
+
+ -- Martín Ferrari <tincho at debian.org>  Fri, 13 Jun 2008 22:26:36 -0300
+
 libgeo-metar-perl (1.15-1) unstable; urgency=low
 
   * New upstream release, new upstream maintainer.

Modified: trunk/libgeo-metar-perl/debian/patches/various.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgeo-metar-perl/debian/patches/various.patch?rev=20984&op=diff
==============================================================================
--- trunk/libgeo-metar-perl/debian/patches/various.patch (original)
+++ trunk/libgeo-metar-perl/debian/patches/various.patch Sat Jun 14 01:27:10 2008
@@ -12,7 +12,17 @@
      $self->{wind}          = undef;             # the wind information
      $self->{windtype}      = undef;             # the wind speed type (knots/meterpersecond/kilometersperhour)
      $self->{windvar}       = undef;             # the wind variation
-@@ -1431,8 +1430,11 @@ applications.
+@@ -1293,7 +1292,8 @@ sub _process
+ 				$self->{VISIBILITY} = $vis . " statute miles";
+ 			} # end if
+ 		# auto metars can have non-directional visibility reports
+-		} elsif (($self->{MOD} eq 'AUTO') and ($vis =~ /(\d+)NDV$/)){
++		} elsif ($self->{MOD} and ($self->{MOD} eq 'AUTO')
++                and ($vis =~ /(\d+)NDV$/)){
+ 			$self->{VISIBILITY} = "$1 meters non-directional visibility";
+ 		} else {
+ 			$self->{VISIBILITY} = $vis . " meters";
+@@ -1431,8 +1431,11 @@ applications.
  Here is how you I<might> use the Geo::METAR module.
  
  One use that I have had for this module is to query the NWS METAR page