OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-src Date: 24-Mar-2008 11:26:11
Branch: HEAD Handle: 2008032410260900
Modified files:
openpkg-src/perl-asterisk
perl-asterisk.patch perl-asterisk.spec
Log:
fix esoteric argument processing in Asterisk::Manager's sendcommand()
function
Summary:
Revision Changes Path
1.2 +18 -7 openpkg-src/perl-asterisk/perl-asterisk.patch
1.3 +1 -1 openpkg-src/perl-asterisk/perl-asterisk.spec
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-src/perl-asterisk/perl-asterisk.patch
============================================================================
$ cvs diff -u -r1.1 -r1.2 perl-asterisk.patch
--- openpkg-src/perl-asterisk/perl-asterisk.patch 20 Mar 2008 19:38:47
-0000 1.1
+++ openpkg-src/perl-asterisk/perl-asterisk.patch 24 Mar 2008 10:26:09
-0000 1.2
@@ -1,8 +1,19 @@
-Index: asterisk-perl-0.10/Makefile.PL
---- asterisk-perl-0.10/Makefile.PL.orig 2003-06-13 07:52:12 +0200
-+++ asterisk-perl-0.10/Makefile.PL 2008-03-18 22:06:58 +0100
-@@ -14,3 +14,4 @@
- },
- );
+Index: asterisk-perl-0.10/lib/Asterisk/Manager.pm
+--- asterisk-perl-0.10/lib/Asterisk/Manager.pm.orig 2006-09-25 10:42:56
+0200
++++ asterisk-perl-0.10/lib/Asterisk/Manager.pm 2008-03-24 11:24:23
+0100
+@@ -264,12 +264,10 @@
+ #$want = 1 returns the results in a large string
+ #$want = 2 returns the results in an array
+ sub sendcommand {
+- my ($self, %command, $want) = @_;
++ my $self = shift @_;
++ my $want = 0; $want = pop @_ if (scalar(@_) % 2 != 0);
++ my %command = @_;
+
+- if (!defined($want)) {
+- $want = 0;
+- }
+-
+ my $conn = $self->connfd || return;
+ my $cstring = $self->astman_h2s(%command);
-+
@@ .
patch -p0 <<'@@ .'
Index: openpkg-src/perl-asterisk/perl-asterisk.spec
============================================================================
$ cvs diff -u -r1.2 -r1.3 perl-asterisk.spec
--- openpkg-src/perl-asterisk/perl-asterisk.spec 22 Mar 2008 16:02:24
-0000 1.2
+++ openpkg-src/perl-asterisk/perl-asterisk.spec 24 Mar 2008 10:26:09
-0000 1.3
@@ -37,7 +37,7 @@
Group: Perl
License: GPL/Artistic
Version: %{V_perl}
-Release: 20080322
+Release: 20080324
# list of sources
Source0:
http://asterisk.gnuinter.net/files/asterisk-perl-%{V_asterisk_perl}.tar.gz
@@ .
______________________________________________________________________
OpenPKG http://openpkg.org
CVS Repository Commit List openpkg-cvs@openpkg.org
