r43822 - in /branches/upstream/libnet-ssh2-perl/current: Changes META.yml 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:46:00 UTC 2009
Author: carnil-guest
Date: Mon Sep 7 18:45:53 2009
New Revision: 43822
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43822
Log:
[svn-upgrade] Integrating new upstream version, libnet-ssh2-perl (0.25)
Modified:
branches/upstream/libnet-ssh2-perl/current/Changes
branches/upstream/libnet-ssh2-perl/current/META.yml
branches/upstream/libnet-ssh2-perl/current/inc/Devel/CheckLib.pm
branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm
Modified: branches/upstream/libnet-ssh2-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/Changes?rev=43822&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/Changes (original)
+++ branches/upstream/libnet-ssh2-perl/current/Changes Mon Sep 7 18:45:53 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: branches/upstream/libnet-ssh2-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/META.yml?rev=43822&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/META.yml (original)
+++ branches/upstream/libnet-ssh2-perl/current/META.yml Mon Sep 7 18:45:53 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: branches/upstream/libnet-ssh2-perl/current/inc/Devel/CheckLib.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/inc/Devel/CheckLib.pm?rev=43822&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/inc/Devel/CheckLib.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/inc/Devel/CheckLib.pm Mon Sep 7 18:45:53 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: branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm?rev=43822&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm Mon Sep 7 18:45:53 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