r3201 - in /packages/libemail-valid-perl/branches/upstream/current: Changes META.yml lib/Email/Valid.pm

[eloy at users.alioth.debian.org]

Author: eloy
Date: Fri Jun 30 12:17:51 2006
New Revision: 3201

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3201
Log:
Load /tmp/tmp.IdFMR21857/libemail-valid-perl-0.175 into
packages/libemail-valid-perl/branches/upstream/current.

Modified:
    packages/libemail-valid-perl/branches/upstream/current/Changes
    packages/libemail-valid-perl/branches/upstream/current/META.yml
    packages/libemail-valid-perl/branches/upstream/current/lib/Email/Valid.pm

Modified: packages/libemail-valid-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-valid-perl/branches/upstream/current/Changes?rev=3201&op=diff
==============================================================================
--- packages/libemail-valid-perl/branches/upstream/current/Changes (original)
+++ packages/libemail-valid-perl/branches/upstream/current/Changes Fri Jun 30 12:17:51 2006
@@ -1,4 +1,7 @@
 Revision history for Perl extension Email::Valid.
+
+0.175   Sat Jun 24 2006
+        attempt to improve nslookup-location on Cygwin
 
 0.174   Fri Jun 17 2006
         added module required on Win32 (IO::CaptureOutput) to Makefile.PL

Modified: packages/libemail-valid-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-valid-perl/branches/upstream/current/META.yml?rev=3201&op=diff
==============================================================================
--- packages/libemail-valid-perl/branches/upstream/current/META.yml (original)
+++ packages/libemail-valid-perl/branches/upstream/current/META.yml Fri Jun 30 12:17:51 2006
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Email-Valid
-version:      0.174
+version:      0.175
 version_from: lib/Email/Valid.pm
 installdirs:  site
 requires:

Modified: packages/libemail-valid-perl/branches/upstream/current/lib/Email/Valid.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-valid-perl/branches/upstream/current/lib/Email/Valid.pm?rev=3201&op=diff
==============================================================================
--- packages/libemail-valid-perl/branches/upstream/current/lib/Email/Valid.pm (original)
+++ packages/libemail-valid-perl/branches/upstream/current/lib/Email/Valid.pm Fri Jun 30 12:17:51 2006
@@ -9,7 +9,7 @@
 use Mail::Address;
 use File::Spec;
 
-$VERSION = '0.174';
+$VERSION = '0.175';
 
 %AUTOLOAD = (
   fqdn     => 1,
@@ -100,9 +100,9 @@
   my $self = shift;
  
   my $ns = 'nslookup';
-  $ns .= '.exe' if $^O =~ /win32/i;
   foreach my $path (@NSLOOKUP_PATHS) {
     my $file = File::Spec->catfile($path, $ns);
+    return "$file.exe" if ($^O eq 'MSWin32') and -x "$file.exe" and !-d _;
     return $file if -x $file and !-d _;
   }
   return undef;