r42354 - in /branches/upstream/libnet-ssh2-perl/current: Changes META.yml SSH2.xs lib/Net/SSH2.pm lib/Net/SSH2/Channel.pm

carnil-guest at users.alioth.debian.org carnil-guest at users.alioth.debian.org
Fri Aug 21 21:01:44 UTC 2009


Author: carnil-guest
Date: Fri Aug 21 21:01:03 2009
New Revision: 42354

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42354
Log:
[svn-upgrade] Integrating new upstream version, libnet-ssh2-perl (0.24)

Modified:
    branches/upstream/libnet-ssh2-perl/current/Changes
    branches/upstream/libnet-ssh2-perl/current/META.yml
    branches/upstream/libnet-ssh2-perl/current/SSH2.xs
    branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm
    branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2/Channel.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=42354&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/Changes (original)
+++ branches/upstream/libnet-ssh2-perl/current/Changes Fri Aug 21 21:01:03 2009
@@ -2,6 +2,9 @@
 
 Developer/maintainer: David B. Robins <dbrobins at cpan.org>.
 Project started 2005-10-23 in Redmond, Washington, USA.
+
+0.24  2009-08-20 19:55:28
+        - include patch for $chan->pty_size($w, $h) from Rubio Vaughan
 
 0.23  2009-08-18 04:00:42
         - Fix timeout option (forgot key)

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=42354&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/META.yml (original)
+++ branches/upstream/libnet-ssh2-perl/current/META.yml Fri Aug 21 21:01:03 2009
@@ -21,7 +21,7 @@
 provides:
   Net::SSH2:
     file: lib/Net/SSH2.pm
-    version: 0.23
+    version: 0.24
   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.23
+version: 0.24

Modified: branches/upstream/libnet-ssh2-perl/current/SSH2.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/SSH2.xs?rev=42354&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/SSH2.xs (original)
+++ branches/upstream/libnet-ssh2-perl/current/SSH2.xs Fri Aug 21 21:01:03 2009
@@ -1197,6 +1197,28 @@
      width, height, width_px, height_px));
 
 void
+net_ch_pty_size(SSH2_CHANNEL* ch, int width = 0, int height = 0)
+PREINIT:
+    int width_px = LIBSSH2_TERM_WIDTH_PX, height_px = LIBSSH2_TERM_HEIGHT_PX;
+CODE:
+    if (!width)
+        croak("%s::pty_size: required parameter width missing", class);
+    else if(width < 0) {
+        width_px = -width;
+        width = 0;
+    }
+
+    if (!height)
+        croak("%s::pty_size: required parameter height missing", class);
+    else if(height < 0) {
+        height_px = -height;
+        height = 0;
+    }
+
+    XSRETURN_IV(!libssh2_channel_request_pty_size_ex(ch->channel,
+     width, height, width_px, height_px));
+
+void
 net_ch_process(SSH2_CHANNEL* ch, SV* request, SV* message = NULL)
 PREINIT:
     const char* pv_request, * pv_message = NULL;

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=42354&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2.pm Fri Aug 21 21:01:03 2009
@@ -188,7 +188,7 @@
 
 our @EXPORT_OK = @{$EXPORT_TAGS{all}};
 
-our $VERSION = '0.23';
+our $VERSION = '0.24';
 
 # methods
 

Modified: branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2/Channel.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2/Channel.pm?rev=42354&op=diff
==============================================================================
--- branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2/Channel.pm (original)
+++ branches/upstream/libnet-ssh2-perl/current/lib/Net/SSH2/Channel.pm Fri Aug 21 21:01:03 2009
@@ -136,6 +136,12 @@
 width and height in characters (defaults to 80x24); if negative their absolute
 values specify width and height in pixels.
 
+=head2 pty_size ( width, height )
+
+Request a terminal size change on a channel. C<width> and C<height> are the
+width and height in characters; if negative their absolute values specify
+width and height in pixels.
+
 =head2 process ( request, message )
 
 Start a process on the channel.  See also L<shell>, L<exec>, L<subsystem>.




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