r26315 - in /trunk/libevent-rpc-perl: ./ debian/ debian/patches/ lib/Event/ lib/Event/RPC/ t/
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Tue Oct 28 22:02:18 UTC 2008
Author: rmayorga-guest
Date: Tue Oct 28 22:02:15 2008
New Revision: 26315
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26315
Log:
* New upstream release
* debian/control
+ set debhelper and compat level to 7
+ add myself to uploaders
+ add quilt to B-D
* debian/copyright - use the (new)format
* debian/rules - convert to dh7 using dh-make-perl
* debian/patches/fix_pod_errors.patch added
Added:
trunk/libevent-rpc-perl/debian/libevent-rpc-perl.examples
trunk/libevent-rpc-perl/debian/patches/
trunk/libevent-rpc-perl/debian/patches/fix_pod_errors.patch
trunk/libevent-rpc-perl/debian/patches/series
Modified:
trunk/libevent-rpc-perl/Changes
trunk/libevent-rpc-perl/META.yml
trunk/libevent-rpc-perl/debian/changelog
trunk/libevent-rpc-perl/debian/compat
trunk/libevent-rpc-perl/debian/control
trunk/libevent-rpc-perl/debian/copyright
trunk/libevent-rpc-perl/debian/rules
trunk/libevent-rpc-perl/lib/Event/RPC.pm
trunk/libevent-rpc-perl/lib/Event/RPC/Connection.pm
trunk/libevent-rpc-perl/t/06.object2.t
trunk/libevent-rpc-perl/t/Event_RPC_Test2.pm
trunk/libevent-rpc-perl/t/Event_RPC_Test_Server.pm
Modified: trunk/libevent-rpc-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/Changes?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/Changes (original)
+++ trunk/libevent-rpc-perl/Changes Tue Oct 28 22:02:15 2008
@@ -1,6 +1,14 @@
-$Id: Changes,v 1.15 2008/06/21 12:44:49 joern Exp $
+$Id: Changes,v 1.17 2008/10/26 10:28:28 joern Exp $
Revision history and release notes for Event::RPC:
+
+1.01 Sat Oct 25, 2008, joern
+ Bugfixes:
+ - Even objects returned by methods not declared as
+ an "object returner" where turned into Event::RPC
+ object handles instead of copying the complete
+ data structure to the client. Thanks for the report
+ to Alex <alex AT lokku.com>.
1.00 Sat Jun 21, 2008, joern
Notes:
Modified: trunk/libevent-rpc-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/META.yml?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/META.yml (original)
+++ trunk/libevent-rpc-perl/META.yml Tue Oct 28 22:02:15 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Event-RPC
-version: 1.00
+version: 1.01
abstract: ~
license: ~
author: ~
Modified: trunk/libevent-rpc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/debian/changelog?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/debian/changelog (original)
+++ trunk/libevent-rpc-perl/debian/changelog Tue Oct 28 22:02:15 2008
@@ -1,3 +1,16 @@
+libevent-rpc-perl (1.01-1) unstable; urgency=low
+
+ * New upstream release
+ * debian/control
+ + set debhelper and compat level to 7
+ + add myself to uploaders
+ + add quilt to B-D
+ * debian/copyright - use the (new)format
+ * debian/rules - convert to dh7 using dh-make-perl
+ * debian/patches/fix_pod_errors.patch added
+
+ -- Rene Mayorga <rmayorga at debian.org.sv> Tue, 28 Oct 2008 15:32:16 -0600
+
libevent-rpc-perl (1.00-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libevent-rpc-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/debian/compat?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/debian/compat (original)
+++ trunk/libevent-rpc-perl/debian/compat Tue Oct 28 22:02:15 2008
@@ -1,1 +1,1 @@
-5
+7
Modified: trunk/libevent-rpc-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/debian/control?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/debian/control (original)
+++ trunk/libevent-rpc-perl/debian/control Tue Oct 28 22:02:15 2008
@@ -1,10 +1,11 @@
Source: libevent-rpc-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 5.0.0)
+Build-Depends: debhelper (>= 7), quilt
Build-Depends-Indep: perl (>= 5.8.0-7), libevent-perl | libglib-perl, libio-socket-ssl-perl, netbase
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: gregor herrmann <gregoa at debian.org>, Russ Allbery <rra at debian.org>
+Uploaders: gregor herrmann <gregoa at debian.org>, Russ Allbery <rra at debian.org>,
+ Rene Mayorga <rmayorga at debian.org.sv>
Standards-Version: 3.8.0
Homepage: http://www.exit1.org/Event-RPC/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libevent-rpc-perl/
Modified: trunk/libevent-rpc-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/debian/copyright?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/debian/copyright (original)
+++ trunk/libevent-rpc-perl/debian/copyright Tue Oct 28 22:02:15 2008
@@ -1,24 +1,29 @@
-This is the debian package for the Event-RPC module.
-It was created by gregor herrmann <gregor+debian at comodo.priv.at> using dh-make-perl.
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Jörn Reder <joern at zyn dot de>
+Upstream-Source: http://search.cpan.org/dist/Event-RPC/
+Upstream-Name: Event-RPC
-It was downloaded from http://search.cpan.org/dist/Event-RPC/
+Files: *
+Copyright: 2002-2006 by Jörn Reder.
+License-Alias: Perl
+License: Artistic | GPL-1+
-Author:
- Jörn Reder <joern at zyn dot de>
+Files: debian/*
+Copyright: 2006-2008 various members of the Debian Perl Group, cf.
+ debian/changelog
+License: Artistic | GPL-1+
-Copyright:
- Copyright (C) 2002-2006 by Jörn Reder.
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in /usr/share/common-licenses/Artistic
-Licence:
-
- This library is free software; you can redistribute it and/or modify it
- under the same terms as Perl itself.
-
-Perl is distributed under either the Artistic licence or the GPL.
-
-The full text of the GPL is available on Debian systems in
-/usr/share/common-licenses/GPL
-
-The full text of the Artistic Licence is available on Debian systems in
-/usr/share/common-licenses/Artistic
-
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Added: trunk/libevent-rpc-perl/debian/libevent-rpc-perl.examples
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/debian/libevent-rpc-perl.examples?rev=26315&op=file
==============================================================================
--- trunk/libevent-rpc-perl/debian/libevent-rpc-perl.examples (added)
+++ trunk/libevent-rpc-perl/debian/libevent-rpc-perl.examples Tue Oct 28 22:02:15 2008
@@ -1,0 +1,1 @@
+examples/*
Added: trunk/libevent-rpc-perl/debian/patches/fix_pod_errors.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/debian/patches/fix_pod_errors.patch?rev=26315&op=file
==============================================================================
--- trunk/libevent-rpc-perl/debian/patches/fix_pod_errors.patch (added)
+++ trunk/libevent-rpc-perl/debian/patches/fix_pod_errors.patch Tue Oct 28 22:02:15 2008
@@ -1,0 +1,11 @@
+--- libevent-rpc-perl.orig/lib/Event/RPC/Server.pm
++++ libevent-rpc-perl/lib/Event/RPC/Server.pm
+@@ -778,6 +778,8 @@
+ a string containing either "connect" or "disconnect" depending
+ what's currently happening with this connection.
+
++=back
++
+ =head1 METHODS
+
+ The following methods are publically available:
Added: trunk/libevent-rpc-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/debian/patches/series?rev=26315&op=file
==============================================================================
--- trunk/libevent-rpc-perl/debian/patches/series (added)
+++ trunk/libevent-rpc-perl/debian/patches/series Tue Oct 28 22:02:15 2008
@@ -1,0 +1,1 @@
+fix_pod_errors.patch
Modified: trunk/libevent-rpc-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/debian/rules?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/debian/rules (original)
+++ trunk/libevent-rpc-perl/debian/rules Tue Oct 28 22:02:15 2008
@@ -1,61 +1,26 @@
#!/usr/bin/make -f
-# This debian/rules file is provided as a template for normal perl
-# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
-# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
-# be used freely wherever it is useful.
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
+include /usr/share/quilt/quilt.make
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
-export PERL_MM_USE_DEFAULT=1
-
-PERL ?= /usr/bin/perl
-PACKAGE = $(shell dh_listpackages)
-TMP = $(CURDIR)/debian/$(PACKAGE)
build: build-stamp
-build-stamp:
- dh_testdir
- $(PERL) Makefile.PL INSTALLDIRS=vendor
- $(MAKE)
- $(MAKE) test
+build-stamp: $(QUILT_STAMPFN)
+ dh build
touch $@
-clean:
- dh_testdir
- dh_testroot
- dh_clean build-stamp install-stamp
- [ ! -f Makefile ] || $(MAKE) realclean
+clean: unpatch
+ dh $@
install: install-stamp
install-stamp: build-stamp
- dh_testdir
- dh_testroot
- dh_clean -k
- $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
- [ ! -d $(TMP)/usr/lib/perl5 ] || \
- rmdir --ignore-fail-on-non-empty --parents --verbose \
- $(TMP)/usr/lib/perl5
+ dh install
touch $@
binary-arch:
-# We have nothing to do here for an architecture-independent package
-binary-indep: build install
- dh_testdir
- dh_testroot
- dh_installexamples examples/*
- dh_installdocs
- dh_installchangelogs Changes
- dh_perl
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_gencontrol
- dh_md5sums
- dh_builddeb
+binary-indep: install
+ dh $@
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install
+binary: binary-arch binary-indep
+
+.PHONY: binary binary-arch binary-indep install clean build
Modified: trunk/libevent-rpc-perl/lib/Event/RPC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/lib/Event/RPC.pm?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/lib/Event/RPC.pm (original)
+++ trunk/libevent-rpc-perl/lib/Event/RPC.pm Tue Oct 28 22:02:15 2008
@@ -1,6 +1,6 @@
package Event::RPC;
-$VERSION = "1.00";
+$VERSION = "1.01";
$PROTOCOL = "1.00";
sub crypt {
Modified: trunk/libevent-rpc-perl/lib/Event/RPC/Connection.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/lib/Event/RPC/Connection.pm?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/lib/Event/RPC/Connection.pm (original)
+++ trunk/libevent-rpc-perl/lib/Event/RPC/Connection.pm Tue Oct 28 22:02:15 2008
@@ -386,6 +386,8 @@
}
+ my $return_type = $self->get_classes->{$class}->{$method};
+
# (re)load the class if not done yet
$self->load_class($class) if $self->get_server->get_load_modules;
@@ -411,11 +413,12 @@
$self->log (4, "Called method '$method' of object ".
"with oid=$oid");
- # check if objects are returned by this method
- # and register them in our internal object table
- # (if not already done yet)
- my $key;
- foreach my $rc ( @rc ) {
+ if ( $return_type eq '_object' ) {
+ # check if objects are returned by this method
+ # and register them in our internal object table
+ # (if not already done yet)
+ my $key;
+ foreach my $rc ( @rc ) {
if ( ref ($rc) and ref ($rc) !~ /ARRAY|HASH|SCALAR/ ) {
# returns a single object
$self->log (4, "Method returns object: $rc");
@@ -455,7 +458,8 @@
}
}
}
- }
+ }
+ }
# return rc
return {
Modified: trunk/libevent-rpc-perl/t/06.object2.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/t/06.object2.t?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/t/06.object2.t (original)
+++ trunk/libevent-rpc-perl/t/06.object2.t Tue Oct 28 22:02:15 2008
@@ -11,7 +11,7 @@
plan skip_all => "Neither Event nor Glib installed";
}
-plan tests => 9;
+plan tests => 10;
my $PORT = 27811;
@@ -38,7 +38,7 @@
# create instance of test class over RPC
my $data = "Some test data. " x 6;
my $object = Event_RPC_Test->new (
- data => $data
+ data => $data
);
# check object
@@ -58,6 +58,10 @@
# check data of object2
ok($object2->get_data == $$, "object data is $$");
+# check if copying the complete object hash works
+my $ref = $object2->get_object_copy;
+ok($ref->{data} == $$, "object copy data is $$");
+
# disconnect client
ok ($client->disconnect, "client disconnected");
Modified: trunk/libevent-rpc-perl/t/Event_RPC_Test2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/t/Event_RPC_Test2.pm?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/t/Event_RPC_Test2.pm (original)
+++ trunk/libevent-rpc-perl/t/Event_RPC_Test2.pm Tue Oct 28 22:02:15 2008
@@ -14,5 +14,10 @@
}, $class;
}
+sub get_object_copy {
+ my $self = shift;
+ return $self;
+}
+
1;
Modified: trunk/libevent-rpc-perl/t/Event_RPC_Test_Server.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libevent-rpc-perl/t/Event_RPC_Test_Server.pm?rev=26315&op=diff
==============================================================================
--- trunk/libevent-rpc-perl/t/Event_RPC_Test_Server.pm (original)
+++ trunk/libevent-rpc-perl/t/Event_RPC_Test_Server.pm Tue Oct 28 22:02:15 2008
@@ -121,6 +121,7 @@
new => '_constructor',
set_data => 1,
get_data => 1,
+ get_object_copy => 1,
},
},
connection_hook => sub {
More information about the Pkg-perl-cvs-commits
mailing list