r30896 - in /trunk/libfreezethaw-perl: Changes FreezeThaw.pm MANIFEST META.yml Makefile.PL debian/changelog debian/compat debian/control debian/copyright debian/rules
rmayorga at users.alioth.debian.org
rmayorga at users.alioth.debian.org
Fri Feb 20 05:56:35 UTC 2009
Author: rmayorga
Date: Fri Feb 20 05:56:30 2009
New Revision: 30896
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30896
Log:
* New upstream release
* debian/control:
+ raise debhelper versioned depends to 7
+ add myself to uploaders
+ change gregor's email address
+ bump Standards-Version to 3.8.0 (no changes needed)
+ mention module name on extended description
* debian/rules: use dh7 tiny format based on dh-make-perl -R
* debian/copyright:
+ use the new proposal format
+ mention debian/* copyright holders based on debian/changelog
Added:
trunk/libfreezethaw-perl/META.yml
- copied unchanged from r30895, branches/upstream/libfreezethaw-perl/current/META.yml
Modified:
trunk/libfreezethaw-perl/Changes
trunk/libfreezethaw-perl/FreezeThaw.pm
trunk/libfreezethaw-perl/MANIFEST
trunk/libfreezethaw-perl/Makefile.PL
trunk/libfreezethaw-perl/debian/changelog
trunk/libfreezethaw-perl/debian/compat
trunk/libfreezethaw-perl/debian/control
trunk/libfreezethaw-perl/debian/copyright
trunk/libfreezethaw-perl/debian/rules
Modified: trunk/libfreezethaw-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/Changes?rev=30896&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/Changes (original)
+++ trunk/libfreezethaw-perl/Changes Fri Feb 20 05:56:30 2009
@@ -23,3 +23,10 @@
`use strict'-complient.
Version 0.43:
Correct save/restore of overloaded values, including repeated refs.
+Version 0.44:
+ Optimize thaw; apparently, with 5.8.8 \G in REx is not optimized;
+ so implement along lines suggested by Bram [wizbit] (about 5x speedup
+ in some test cases).
+Version 0.45:
+ Maxpointer decimal width was wrongly calculated on 64bit machines with
+ narrow NVs.
Modified: trunk/libfreezethaw-perl/FreezeThaw.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/FreezeThaw.pm?rev=30896&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/FreezeThaw.pm (original)
+++ trunk/libfreezethaw-perl/FreezeThaw.pm Fri Feb 20 05:56:30 2009
@@ -285,7 +285,7 @@
use Exporter;
@ISA = qw(Exporter);
-$VERSION = '0.43';
+$VERSION = '0.45';
@EXPORT_OK = qw(freeze thaw cmpStr cmpStrHard safeFreeze);
use strict;
@@ -319,6 +319,19 @@
Regexp => 0,
);
+# This should better be done via pos() and \G, but apparently \G is not
+# optimized (bug in the REx optimizer???)
+BEGIN {
+ my $pointer_size = length pack 'p', 0;
+ #my $max_dig0 = 3*$pointer_size; # 8bits take less than 3 decimals
+ # Now calculate the exact value:
+ #my $max_pointer = sprintf "%.${max_dig0}g", 0x100**$pointer_size;
+ my $max_pointer = sprintf "%.0f", 0x100**$pointer_size;
+ die "Panic" if $max_pointer =~ /\D/;
+ my $max_pointer_l = length $max_pointer;
+ warn "Max pointer_l=$max_pointer_l" if $ENV{FREEZE_THAW_WARN};
+ eval "sub max_strlen_l () {$max_pointer_l}; 1" or die;
+}
sub flushCache {$lock ^= rand; undef %saved;}
@@ -342,7 +355,7 @@
sub freezeREx {$string .= '/' . length($_[0]) . '|' . $_[0]}
sub thawString { # Returns list: a string and offset of rest
- substr($string, $_[0]) =~ /^\$(\d+)\|/
+ substr($string, $_[0], 2+max_strlen_l) =~ /^\$(\d+)\|/
or confess "Wrong format of frozen string: " . substr($string, $_[0]);
length($string) - $_[0] > length($1) + 1 + $1
or confess "Frozen string too short: `" .
@@ -351,7 +364,7 @@
}
sub thawNumber { # Returns list: a number and offset of rest
- substr($string, $_[0]) =~ /^(\d+)\|/
+ substr($string, $_[0], 1+max_strlen_l) =~ /^(\d+)\|/
or confess "Wrong format of frozen string: " . substr($string, $_[0]);
($1, $_[0] + length($1) + 1);
}
@@ -364,7 +377,7 @@
}
sub thawREx { # Returns list: a REx and offset of rest
- substr($string, $_[0]) =~ m,^/(\d+)\|,
+ substr($string, $_[0], 2+max_strlen_l) =~ m,^/(\d+)\|,
or confess "Wrong format of frozen REx: " . substr($string, $_[0]);
length($string) - $_[0] > length($1) + 1 + $1
or confess "Frozen string too short: `" .
@@ -381,7 +394,7 @@
}
sub thawArray {
- substr($string, $_[0]) =~ /^[\@%](\d+)\|/ # % To make it possible thaw hashes
+ substr($string, $_[0], 2+max_strlen_l) =~ /^[\@%](\d+)\|/ # % To make it possible thaw hashes
or confess "Wrong format of frozen array: \n$_[0]";
my $count = $1;
my $off = $_[0] + 2 + length $count;
Modified: trunk/libfreezethaw-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/MANIFEST?rev=30896&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/MANIFEST (original)
+++ trunk/libfreezethaw-perl/MANIFEST Fri Feb 20 05:56:30 2009
@@ -5,3 +5,4 @@
Makefile.PL
Changes
README
+META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libfreezethaw-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/Makefile.PL?rev=30896&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/Makefile.PL (original)
+++ trunk/libfreezethaw-perl/Makefile.PL Fri Feb 20 05:56:30 2009
@@ -4,4 +4,5 @@
WriteMakefile(
NAME => 'FreezeThaw',
VERSION_FROM => "FreezeThaw.pm",
+ AUTHOR => 'Ilya Zakharevich <ilyaz at cpan.org>',
);
Modified: trunk/libfreezethaw-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/debian/changelog?rev=30896&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/debian/changelog (original)
+++ trunk/libfreezethaw-perl/debian/changelog Fri Feb 20 05:56:30 2009
@@ -1,10 +1,24 @@
-libfreezethaw-perl (0.43-5) UNRELEASED; urgency=low
-
+libfreezethaw-perl (0.45-1) unstable; urgency=low
+
+ [ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
* debian/control: Added: ${misc:Depends} to Depends: field.
- -- gregor herrmann <gregoa at debian.org> Sun, 16 Nov 2008 20:43:09 +0100
+ [ Rene Mayorga ]
+ * New upstream release
+ * debian/control:
+ + raise debhelper versioned depends to 7
+ + add myself to uploaders
+ + change gregor's email address
+ + bump Standards-Version to 3.8.0 (no changes needed)
+ + mention module name on extended description
+ * debian/rules: use dh7 tiny format based on dh-make-perl -R
+ * debian/copyright:
+ + use the new proposal format
+ + mention debian/* copyright holders based on debian/changelog
+
+ -- Rene Mayorga <rmayorga at debian.org> Thu, 19 Feb 2009 23:30:23 -0600
libfreezethaw-perl (0.43-4) unstable; urgency=low
Modified: trunk/libfreezethaw-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/debian/compat?rev=30896&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/debian/compat (original)
+++ trunk/libfreezethaw-perl/debian/compat Fri Feb 20 05:56:30 2009
@@ -1,1 +1,1 @@
-5
+7
Modified: trunk/libfreezethaw-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/debian/control?rev=30896&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/debian/control (original)
+++ trunk/libfreezethaw-perl/debian/control Fri Feb 20 05:56:30 2009
@@ -1,10 +1,11 @@
Source: libfreezethaw-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 5.0.0)
+Build-Depends: debhelper (>= 7)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: gregor herrmann <gregor+debian at comodo.priv.at>
-Standards-Version: 3.7.3
+Uploaders: gregor herrmann <gregoa at debian.org>,
+ Rene Mayorga <rmayorga at debian.org>
+Standards-Version: 3.8.0
Homepage: http://search.cpan.org/dist/FreezeThaw/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libfreezethaw-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libfreezethaw-perl/
@@ -13,6 +14,5 @@
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends}
Description: converting Perl structures to strings and back
- Converts data to/from stringified form, appropriate for
+ FreezeThaw converts data to/from stringified form, appropriate for
saving-to/reading-from permanent storage.
-
Modified: trunk/libfreezethaw-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/debian/copyright?rev=30896&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/debian/copyright (original)
+++ trunk/libfreezethaw-perl/debian/copyright Fri Feb 20 05:56:30 2009
@@ -1,33 +1,29 @@
-This is the debian package for the FreezeThaw module.
-It was created by Ivan Kohler <ivan-debian at 420.am> using dh-make-perl.
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Ilya Zakharevich
+Upstream-Source: http://search.cpan.org/dist/FreezeThaw/
+Upstream-Name: FreezeThaw
-Upstream source location: http://search.cpan.org/dist/FreezeThaw/
+Files: *
+Copyright: © 1995 Ilya Zakharevich. All rights reserved.
+License-Alias: Perl
+License: Artistic | GPL-1+
- Copyright (c) 1995 Ilya Zakharevich. All rights reserved.
- This program is free software; you can redistribute it and/or
- modify it under the same terms as Perl itself.
+Files: debian/*
+Copyright: © 2001-2002 Ivan Kohler <ivan-debian at 420.am>
+ © 2006-2008 gregor herrmann <gregor+debian at comodo.priv.at>
+License: Artistic | GPL-1+
- You should have received a copy of the Perl license along with
- Perl; see the file README in Perl distribution.
-
- You should have received a copy of the GNU General Public License
- along with Perl; see the file Copying. If not, write to the Free
- Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
- 02110-1301, USA.
+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'
- You should have received a copy of the Artistic License
- along with Perl; see the file Artistic.
-
-
-Author of this software makes no claim whatsoever about suitability,
-reliability, edability, editability or usability of this product. If
-you can use it, you are in luck, if not, I should not be kept
-responsible. Keep a handy copy of your backup tape at hand.
-
-With this module from this moment on you are on your own ;-). Good luck.
-
-
-Perl is distributed under your choice of the GNU General Public License or
-the Artistic License. On Debian GNU/Linux systems, the complete text of the
-GNU General Public License can be found in `/usr/share/common-licenses/GPL'
-and the Artistic Licence 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'
Modified: trunk/libfreezethaw-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfreezethaw-perl/debian/rules?rev=30896&op=diff
==============================================================================
--- trunk/libfreezethaw-perl/debian/rules (original)
+++ trunk/libfreezethaw-perl/debian/rules Fri Feb 20 05:56:30 2009
@@ -1,70 +1,23 @@
#!/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
-
-# 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
-
-PACKAGE=$(shell dh_listpackages)
-
-ifndef PERL
-PERL = /usr/bin/perl
-endif
-
-TMP =$(CURDIR)/debian/$(PACKAGE)
build: build-stamp
build-stamp:
- dh_testdir
-
- $(PERL) Makefile.PL INSTALLDIRS=vendor
- $(MAKE)
- $(MAKE) test
-
+ dh build
touch $@
clean:
- dh_testdir
- dh_testroot
-
- dh_clean build-stamp install-stamp
- [ ! -f Makefile ] || $(MAKE) realclean
+ 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_installdocs
- dh_installchangelogs Changes
- dh_perl
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_gencontrol
- dh_md5sums
- dh_builddeb
+binary-indep: install
+ dh $@
-source diff:
- @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
+binary: binary-arch binary-indep
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install
+.PHONY: binary binary-arch binary-indep install clean build
More information about the Pkg-perl-cvs-commits
mailing list