head	1.3;
access;
symbols;
locks; strict;
comment	@# @;


1.3
date	2009.06.26.17.20.41;	author rse;	state dead;
branches;
next	1.2;
commitid	dXQwAGKBPaLpdoTt;

1.2
date	2008.03.24.10.26.09;	author rse;	state Exp;
branches;
next	1.1;
commitid	e9zpB00Mzz9WFmWs;

1.1
date	2008.03.20.19.38.47;	author rse;	state Exp;
branches;
next	;
commitid	PubgPLOFqRyuRTVs;


desc
@@


1.3
log
@modifying package: perl-asterisk-5.10.0 20090602 -> 20090626
@
text
@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);
 
@


1.2
log
@fix esoteric argument processing in Asterisk::Manager's sendcommand() function
@
text
@@


1.1
log
@new package: perl-asterisk 5.10.0 (Perl Modules for use with Asterisk PBX)
@
text
@d1 18
a18 6
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 @@@@
 			   },
 );
a19 1
+
@