r43824 - in /trunk/libnet-ssh2-perl: Changes META.yml debian/changelog inc/Devel/CheckLib.pm lib/Net/SSH2.pm

carnil-guest at users.alioth.debian.org carnil-guest at users.alioth.debian.org
Mon Sep 7 18:49:37 UTC 2009


Author: carnil-guest
Date: Mon Sep  7 18:49:31 2009
New Revision: 43824

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43824
Log:
* New upstream release
  - fix an unitialized warning

Modified:
    trunk/libnet-ssh2-perl/Changes
    trunk/libnet-ssh2-perl/META.yml
    trunk/libnet-ssh2-perl/debian/changelog
    trunk/libnet-ssh2-perl/inc/Devel/CheckLib.pm
    trunk/libnet-ssh2-perl/lib/Net/SSH2.pm

Modified: trunk/libnet-ssh2-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ssh2-perl/Changes?rev=43824&op=diff
==============================================================================
--- trunk/libnet-ssh2-perl/Changes (original)
+++ trunk/libnet-ssh2-perl/Changes Mon Sep  7 18:49:31 2009
@@ -2,6 +2,9 @@
 
 Developer/maintainer: David B. Robins <dbrobins at cpan.org>.
 Project started 2005-10-23 in Redmond, Washington, USA.
+
+0.25  2009-09-07 01:07:58
+        - fix an unitialized warning
 
 0.24  2009-08-20 19:55:28
         - include patch for $chan->pty_size($w, $h) from Rubio Vaughan

Modified: trunk/libnet-ssh2-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ssh2-perl/META.yml?rev=43824&op=diff
==============================================================================
--- trunk/libnet-ssh2-perl/META.yml (original)
+++ trunk/libnet-ssh2-perl/META.yml Mon Sep  7 18:49:31 2009
@@ -21,7 +21,7 @@
 provides:
   Net::SSH2:
     file: lib/Net/SSH2.pm
-    version: 0.24
+    version: 0.25
   Net::SSH2::Channel:
     file: lib/Net/SSH2/Channel.pm
   Net::SSH2::Dir:
@@ -39,4 +39,4 @@
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/rkitover/net-ssh2.git
-version: 0.24
+version: 0.25

Modified: trunk/libnet-ssh2-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ssh2-perl/debian/changelog?rev=43824&op=diff
==============================================================================
--- trunk/libnet-ssh2-perl/debian/changelog (original)
+++ trunk/libnet-ssh2-perl/debian/changelog Mon Sep  7 18:49:31 2009
@@ -1,3 +1,10 @@
+libnet-ssh2-perl (0.25-1) UNRELEASED; urgency=low
+
+  * New upstream release
+    - fix an unitialized warning
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>  Mon, 07 Sep 2009 20:46:23 +0200
+
 libnet-ssh2-perl (0.24-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libnet-ssh2-perl/inc/Devel/CheckLib.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ssh2-perl/inc/Devel/CheckLib.pm?rev=43824&op=diff
==============================================================================
--- trunk/libnet-ssh2-perl/inc/Devel/CheckLib.pm (original)
+++ trunk/libnet-ssh2-perl/inc/Devel/CheckLib.pm Mon Sep  7 18:49:31 2009
@@ -1,11 +1,11 @@
-# $Id: CheckLib.pm,v 1.22 2008/03/12 19:52:50 drhyde Exp $
+# $Id: CheckLib.pm,v 1.25 2008/10/27 12:16:23 drhyde Exp $
 
 package #
 Devel::CheckLib;
 
 use strict;
 use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '0.5';
+$VERSION = '0.6';
 use Config;
 
 use File::Spec;
@@ -31,8 +31,6 @@
 
 =head1 SYNOPSIS
 
-    # in a Makefile.PL or Build.PL
-    use lib qw(inc);
     use Devel::CheckLib;
 
     check_lib_or_exit( lib => 'jpeg', header => 'jpeglib.h' );
@@ -41,6 +39,13 @@
     # or prompt for path to library and then do this:
     check_lib_or_exit( lib => 'jpeg', libpath => $additional_path );
 
+=head1 USING IT IN Makefile.PL or Build.PL
+
+If you want to use this from Makefile.PL or Build.PL, do
+not simply copy the module into your distribution as this may cause
+problems when PAUSE and search.cpan.org index the distro.  Instead, use
+the use-devel-checklib script.
+
 =head1 HOW IT WORKS
 
 You pass named parameters to a function, describing to it how to build
@@ -89,6 +94,8 @@
 a C<ExtUtils::MakeMaker>-style space-seperated list of
 libraries (each preceded by '-l') and directories (preceded by '-L').
 
+This can also be supplied on the command-line.
+
 =back
 
 And libraries are no use without header files, so ...
@@ -109,6 +116,8 @@
 
 a C<ExtUtils::MakeMaker>-style space-seperated list of
 incpaths, each preceded by '-I'.
+
+This can also be supplied on the command-line.
 
 =back
 
@@ -150,14 +159,27 @@
         if $args{incpath};
 
     # work-a-like for Makefile.PL's LIBS and INC arguments
+    # if given as command-line argument, append to %args
+    for my $arg (@ARGV) {
+        for my $mm_attr_key qw(LIBS INC) {
+            if (my ($mm_attr_value) = $arg =~ /\A $mm_attr_key = (.*)/x) {
+            # it is tempting to put some \s* into the expression, but the
+            # MM command-line parser only accepts LIBS etc. followed by =,
+            # so we should not be any more lenient with whitespace than that
+                $args{$mm_attr_key} .= " $mm_attr_value";
+            }
+        }
+    }
+
+    # using special form of split to trim whitespace
     if(defined($args{LIBS})) {
-        foreach my $arg (split(/\s+/, $args{LIBS})) {
+        foreach my $arg (split(' ', $args{LIBS})) {
             die("LIBS argument badly-formed: $arg\n") unless($arg =~ /^-l/i);
             push @{$arg =~ /^-l/ ? \@libs : \@libpaths}, substr($arg, 2);
         }
     }
     if(defined($args{INC})) {
-        foreach my $arg (split(/\s+/, $args{INC})) {
+        foreach my $arg (split(' ', $args{INC})) {
             die("INC argument badly-formed: $arg\n") unless($arg =~ /^-I/);
             push @incpaths, substr($arg, 2);
         }
@@ -296,11 +318,15 @@
 
 =item IBM's tools on AIX
 
+=item SGI's tools on Irix 6.5
+
 =item Microsoft's tools on Windows
 
 =item MinGW on Windows (with Strawberry Perl)
 
 =item Borland's tools on Windows
+
+=item QNX
 
 =back
 

Modified: trunk/libnet-ssh2-perl/lib/Net/SSH2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ssh2-perl/lib/Net/SSH2.pm?rev=43824&op=diff
==============================================================================
--- trunk/libnet-ssh2-perl/lib/Net/SSH2.pm (original)
+++ trunk/libnet-ssh2-perl/lib/Net/SSH2.pm Mon Sep  7 18:49:31 2009
@@ -188,7 +188,7 @@
 
 our @EXPORT_OK = @{$EXPORT_TAGS{all}};
 
-our $VERSION = '0.24';
+our $VERSION = '0.25';
 
 # methods
 
@@ -223,7 +223,7 @@
         );
 
         if (not $sock) {
-            if ($wantarray == undef) {
+            if (not defined $wantarray) {
                 croak "Net::SSH2: failed to connect to $_[0]:$_[1]: $!"
             } else {
                 return; # to support ->connect ... or die




More information about the Pkg-perl-cvs-commits mailing list