debian/0000755000000000000000000000000012232155720007165 5ustar debian/watch0000644000000000000000000000020212123045772010214 0ustar version=3 http://search.cpan.org/dist/DR-Tarantool/ \ /CPAN/authors/id/U/UN/UNERA/DR-Tarantool-(\d+(?:\.\d+)+).tar.gz debian/rules0000755000000000000000000000136712207411473010256 0ustar #!/usr/bin/make -f include /usr/share/cdbs/1/rules/debhelper.mk include /usr/share/cdbs/1/class/perl-makemaker.mk MAIN_MODULE = lib/DR/Tarantool.pm DEBVERSION = $(shell dpkg-parsechangelog \ |grep ^Version|awk '{print $$2}'|sed 's/-.*//' ) PERLVERSION = $(shell grep '^our[[:space:]]\+$$VERSION' $(MAIN_MODULE) \ |head -n 1 \ |awk '{print $$4}'|sed "s/[';']//g" ) install/libdr-tarantool-perl:: test $(DEBVERSION) = $(PERLVERSION) make tardist clean:: rm -f Makefile.old rm -fr .pc rm -f DR-Tarantool-*.tar.gz* tarball: cd .. && tar \ --exclude=debian \ --exclude=.git \ -czf libdr-tarantool-perl_$(DEBVERSION).orig.tar.gz \ libdr-tarantool-perl-$(DEBVERSION) DEB_INSTALL_CHANGELOGS_ALL := DEB_DH_INSTALLCHANGELOGS_ARGS := -XChanges debian/copyright0000644000000000000000000000370312123045772011127 0ustar Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135 Maintainer: Dmitry E. Oboukhov Source: http://search.cpan.org/dist/DR-Tarantool/ Name: DR::Tarantool Files: * Copyright: 2011-2012 Dmitry E. Oboukhov 2011-2012 Roman V. Nikolaev License: Artistic 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 systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. File: tp.h Copyright: 2012-2013 Mail.Ru Group License: BSD Copyright (c) 2012-2013 Mail.Ru Group . Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: . 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. . 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. . THIS SOFTWARE IS PROVIDED BY ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. debian/source/0000755000000000000000000000000012123045772010471 5ustar debian/source/format0000644000000000000000000000001412123045772011677 0ustar 3.0 (quilt) debian/patches/0000755000000000000000000000000012232155701010613 5ustar debian/patches/fix-pkt-parse-tests.patch0000644000000000000000000000462012232155701015470 0ustar Description: Fix packet parsing tests to construct valid packets Author: Colin Watson Forwarded: no Last-Update: 2013-10-24 Index: b/t/010-xs.t =================================================================== --- a/t/010-xs.t +++ b/t/010-xs.t @@ -202,38 +202,71 @@ SKIP: { # skip 'Devel tests $ENV{DEVEL_TEST}=0', 120 unless $ENV{DEVEL_TEST}; + +# Pack an integer into an , per the Tarantool binary protocol. +sub pack_varint { + my $num = shift; + my $out = pack 'C', ($num & 0x7f); + $num >>= 7; + while ($num) { + $out .= pack 'C', (($num & 0x7f) | 0x80); + $num >>= 7; + } + return scalar reverse $out; +} + +# Pack arbitrary data into a trivial , per the Tarantool binary +# protocol. +sub pack_fq_tuple { + my $body = shift; + my $len = length $body; + # ::= + # ::= + + # ::= + my $len_varint = pack_varint($len); + return pack 'LLa*a*', + 4 * length($len_varint) + $len, + 1, + $len_varint, + $body + ; +} + for (1 .. 30) { my $body = join '', map { chr int rand 256 } 1 .. (300 + int rand 300); my $pkt = - pack 'LLLLa*', + pack 'LLLLLa*', TNT_SELECT, - length $body, + 8 + length $body, int rand 500, 0, - $body + 1, + pack_fq_tuple($body) ; $res = DR::Tarantool::_pkt_parse_response( $pkt ); diag explain $res unless is $res->{status}, 'buffer', "Broken package $_"; $pkt = - pack 'LLLLa*', + pack 'LLLLLa*', TNT_SELECT, - 10 + length $body, + 8 + 10 + length $body, int rand 500, 0, - $body + 1, + pack_fq_tuple($body) ; $res = DR::Tarantool::_pkt_parse_response( $pkt ); diag explain $res unless is $res->{status}, 'buffer', "Broken package $_, too long body"; $pkt = - pack 'LLLLa*', + pack 'LLLLLa*', TNT_SELECT, - -10 + length $body, + 8 - 10 + length $body, int rand 500, 0, - $body + 1, + pack_fq_tuple($body) ; $res = DR::Tarantool::_pkt_parse_response( $pkt ); diag explain $res unless debian/patches/series0000644000000000000000000000003212232055062012022 0ustar fix-pkt-parse-tests.patch debian/compat0000644000000000000000000000000212123045772010367 0ustar 7 debian/control0000644000000000000000000000145412232155716010601 0ustar Source: libdr-tarantool-perl Section: perl Homepage: http://search.cpan.org/dist/DR-Tarantool/ Maintainer: Ubuntu Developers XSBC-Original-Maintainer: Dmitry E. Oboukhov Build-Depends: debhelper (>= 7), cdbs, libanyevent-perl, libdevel-globaldestruction-perl, libjson-xs-perl, tarantool, aspell-en, libtest-spelling-perl Standards-Version: 3.9.3 Priority: extra VCS-Browser: https://github.com/dr-co/dr-tarantool Package: libdr-tarantool-perl Depends: ${perl:Depends}, ${misc:Depends}, ${shlibs:Depends}, libanyevent-perl, libjson-xs-perl, libdevel-globaldestruction-perl Recommends: libcoro-perl Architecture: any Suggests: tarantool Description: perl driver for Tarantool The package contains sync and async drivers for tarantool database. debian/changelog0000644000000000000000000002006512232155720011042 0ustar libdr-tarantool-perl (0.42-1ubuntu1) trusty; urgency=low * Fix packet parsing tests to construct valid packets. -- Colin Watson Thu, 24 Oct 2013 09:35:27 +0100 libdr-tarantool-perl (0.42-1) unstable; urgency=low * Rebuild for Debian perl 5.18. * Fix some cpan tests (that are run without tarantool). -- Dmitry E. Oboukhov Wed, 18 Sep 2013 01:37:52 +0400 libdr-tarantool-perl (0.41-1) unstable; urgency=low * Fix broken xs-test (by cpan testers reports). -- Dmitry E. Oboukhov Mon, 02 Sep 2013 15:37:11 +0400 libdr-tarantool-perl (0.40-1) unstable; urgency=low * Add RealSyncClient module. -- Dmitry E. Oboukhov Wed, 28 Aug 2013 17:00:13 +0400 libdr-tarantool-perl (0.39-1) unstable; urgency=low * Ping method works even connection isn't established. -- Dmitry E. Oboukhov Wed, 21 Aug 2013 17:33:08 +0400 libdr-tarantool-perl (0.38-1) unstable; urgency=low * Parser doesn't segfault if tarantool replies by broken package. -- Dmitry E. Oboukhov Sat, 01 Jun 2013 21:23:23 +0400 libdr-tarantool-perl (0.37-1) unstable; urgency=low * Update perldoc. -- Dmitry E. Oboukhov Mon, 29 Apr 2013 14:37:25 +0400 libdr-tarantool-perl (0.36-1) unstable; urgency=low * Update perldoc. * Extends readahead buffer to fix FTBFS, closes: #704266. -- Dmitry E. Oboukhov Sun, 21 Apr 2013 12:23:43 +0400 libdr-tarantool-perl (0.35-1) unstable; urgency=low * Add stress test for tarantool, some additional test cases. -- Dmitry E. Oboukhov Wed, 30 Jan 2013 23:54:19 +0400 libdr-tarantool-perl (0.34-1) unstable; urgency=low * Fix some tests. -- Dmitry E. Oboukhov Tue, 29 Jan 2013 10:12:56 +0400 libdr-tarantool-perl (0.33-2) unstable; urgency=low * All requests that are called between reconnects will wait connection instead error returning. -- Dmitry E. Oboukhov Sun, 27 Jan 2013 16:48:26 +0400 libdr-tarantool-perl (0.32-1) unstable; urgency=low * Re-enable tests. -- Dmitry E. Oboukhov Wed, 23 Jan 2013 14:56:43 +0400 libdr-tarantool-perl (0.31-1) unstable; urgency=low * Disable some tests (try to localize some problems with cpan testers). -- Dmitry E. Oboukhov Mon, 21 Jan 2013 21:56:14 +0400 libdr-tarantool-perl (0.30-1) unstable; urgency=low * Fixed empty tuple list in tp.h. -- Dmitry E. Oboukhov Sat, 19 Jan 2013 00:30:24 +0400 libdr-tarantool-perl (0.29-1) unstable; urgency=low * Fixed some warnings in tests. -- Dmitry E. Oboukhov Tue, 15 Jan 2013 22:31:13 +0400 libdr-tarantool-perl (0.28-1) unstable; urgency=low * Fix disconnect async method. -- Dmitry E. Oboukhov Tue, 15 Jan 2013 22:17:35 +0400 libdr-tarantool-perl (0.27-1) unstable; urgency=low * Don't use libtarantool for depends/build-depends. -- Dmitry E. Oboukhov Thu, 10 Jan 2013 17:53:46 +0400 libdr-tarantool-perl (0.26-1) unstable; urgency=low * Update homepage/vcs information. -- Dmitry E. Oboukhov Mon, 07 Jan 2013 03:01:47 +0400 libdr-tarantool-perl (0.25-1) unstable; urgency=low * Uses AE::io instead AE::Handle (benchmarks, benchmarks... :)). -- Dmitry E. Oboukhov Sun, 06 Jan 2013 19:18:46 +0400 libdr-tarantool-perl (0.24-1) unstable; urgency=low * Fix possibly memory leak, closes Debian FTBFS (fix tests), closes: #695660. -- Dmitry E. Oboukhov Tue, 11 Dec 2012 23:28:06 +0400 libdr-tarantool-perl (0.23-1) unstable; urgency=low * LLClient can log requests/reposnses (and error responses). -- Dmitry E. Oboukhov Wed, 05 Sep 2012 13:35:43 +0400 libdr-tarantool-perl (0.22-1) unstable; urgency=low * Prebuild tuple packages (so it doesn't use AUTOLOAD anymore). -- Dmitry E. Oboukhov Mon, 20 Aug 2012 21:19:44 +0400 libdr-tarantool-perl (0.21-1) unstable; urgency=low * Add some functions to iterator (sort, grep, ...). -- Dmitry E. Oboukhov Sun, 15 Jul 2012 20:10:23 +0400 libdr-tarantool-perl (0.20-1) unstable; urgency=low * Some optimizations in iterators. -- Dmitry E. Oboukhov Tue, 10 Jul 2012 10:45:35 +0400 libdr-tarantool-perl (0.19-1) unstable; urgency=low * New upstream version: it is optimized for parallel requests. -- Dmitry E. Oboukhov Thu, 05 Jul 2012 23:50:03 +0400 libdr-tarantool-perl (0.18-1) unstable; urgency=low * HVs are created like perlxs: trying to be compatible with libcoro-perl. -- Dmitry E. Oboukhov Mon, 02 Jul 2012 10:12:39 +0400 libdr-tarantool-perl (0.17-2) unstable; urgency=low * Rebuilt for perl 5.14. -- Dmitry E. Oboukhov Fri, 29 Jun 2012 07:20:46 +0400 libdr-tarantool-perl (0.17-1) unstable; urgency=low * New upstream version (perl 5.8.8 compatible). -- Dmitry E. Oboukhov Wed, 27 Jun 2012 10:38:57 +0400 libdr-tarantool-perl (0.16-1) unstable; urgency=low * New upstream version. Add some functions to iterators. -- Dmitry E. Oboukhov Sat, 23 Jun 2012 16:27:22 +0400 libdr-tarantool-perl (0.15-1) unstable; urgency=low * New upstream version. Fix tuple destructor (it doesn't crashes in global destructor). -- Dmitry E. Oboukhov Thu, 07 Jun 2012 00:08:53 +0400 libdr-tarantool-perl (0.14-1) unstable; urgency=low * New version: Coro can be uninstalled: some tests will be skipped. -- Dmitry E. Oboukhov Mon, 04 Jun 2012 10:21:49 +0400 libdr-tarantool-perl (0.12-1) unstable; urgency=low * New version (provides new field types). -- Dmitry E. Oboukhov Sat, 02 Jun 2012 22:35:47 +0400 libdr-tarantool-perl (0.11-1) unstable; urgency=low * New version. You can use parts of indexes in 'select'. -- Dmitry E. Oboukhov Tue, 29 May 2012 21:21:05 +0400 libdr-tarantool-perl (0.10-1) unstable; urgency=low * New version. Add DR::Tarantool::CoroClient. -- Dmitry E. Oboukhov Mon, 28 May 2012 20:05:12 +0400 libdr-tarantool-perl (0.09-2) unstable; urgency=low * Fix homepage section in debian/control. -- Dmitry E. Oboukhov Mon, 28 May 2012 10:00:48 +0400 libdr-tarantool-perl (0.09-1) unstable; urgency=low * New version. Fix tuple iterator. -- Dmitry E. Oboukhov Sat, 26 May 2012 13:46:38 +0400 libdr-tarantool-perl (0.08-2) unstable; urgency=low * Add libjson-xs-perl into depends. -- Dmitry E. Oboukhov Fri, 25 May 2012 11:20:52 +0400 libdr-tarantool-perl (0.08-1) unstable; urgency=low * New version. Add 'JSON' to fields type list. -- Dmitry E. Oboukhov Fri, 25 May 2012 11:13:30 +0400 libdr-tarantool-perl (0.07-1) unstable; urgency=low * Iterators can construct objects. New version. -- Dmitry E. Oboukhov Thu, 24 May 2012 18:06:52 +0400 libdr-tarantool-perl (0.06-1) unstable; urgency=low * New version (sync methods return tuple or undef). -- Dmitry E. Oboukhov Thu, 24 May 2012 13:51:52 +0400 libdr-tarantool-perl (0.05-1) unstable; urgency=low * New version (some fixes in call_lua). -- Dmitry E. Oboukhov Thu, 24 May 2012 11:52:34 +0400 libdr-tarantool-perl (0.04-1) unstable; urgency=low * New version (upstream upgrades library). -- Dmitry E. Oboukhov Tue, 22 May 2012 17:51:25 +0400 libdr-tarantool-perl (0.03-1) unstable; urgency=low * New version. * Add depends on Devel::GlobalDestruction. -- Dmitry E. Oboukhov Sun, 20 May 2012 17:16:21 +0400 libdr-tarantool-perl (0.02-1) unstable; urgency=low * New version. * Fixed documentation. -- Dmitry E. Oboukhov Sun, 20 May 2012 09:36:46 +0400 libdr-tarantool-perl (0.01-1) unstable; urgency=low * Initial release. (Closes: #673646) -- Dmitry E. Oboukhov Sun, 20 May 2012 01:53:06 +0400