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