--- libdata-sorting-perl-0.9.orig/debian/control +++ libdata-sorting-perl-0.9/debian/control @@ -0,0 +1,29 @@ +Source: libdata-sorting-perl +Section: perl +Priority: optional +Maintainer: Debian Perl Group +Uploaders: Ansgar Burchardt , + gregor herrmann +Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7), libarray-compare-perl +Build-Depends-Indep: perl +Standards-Version: 3.8.3 +Homepage: http://search.cpan.org/dist/Data-Sorting/ +Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdata-sorting-perl/ +Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdata-sorting-perl/ + +Package: libdata-sorting-perl +Architecture: all +Depends: ${misc:Depends}, ${perl:Depends} +Description: Perl module for multi-key sort using function results + Data::Sorting provides functions to sort the contents of arrays based + on a collection of extraction and comparison rules. Extraction rules + are used to identify the attributes of array elements on which the + ordering is based; comparison rules specify how those values should be + ordered. + . + Index strings may be used to retrieve values from array elements, or + function references may be passed in to call on each element. + Comparison rules are provided for numeric, bytewise, and + case-insensitive orders, as well as a 'natural' comparison that places + numbers first, in numeric order, followed by the remaining items in + case-insensitive textual order. --- libdata-sorting-perl-0.9.orig/debian/copyright +++ libdata-sorting-perl-0.9/debian/copyright @@ -0,0 +1,32 @@ +Format-Specification: + http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196 +Upstream-Maintainer: Matthew Simon Cavalletto +Upstream-Source: http://search.cpan.org/dist/Data-Sorting/ +Upstream-Name: Data-Sorting + +Files: * +Copyright: + © 2003, Matthew Cavalletto + © 1996-1999, Evolution Online Systems, Inc. +License-Alias: Perl +License: Artistic | GPL-1+ + +Files: debian/* +Copyright: + © 2004, Florian Ragwitz + © 2009, Ansgar Burchardt +License: Artistic | GPL-1+ + +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' + +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' --- libdata-sorting-perl-0.9.orig/debian/watch +++ libdata-sorting-perl-0.9/debian/watch @@ -0,0 +1,2 @@ +version=3 +http://search.cpan.org/dist/Data-Sorting/ .+/Data-Sorting-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ --- libdata-sorting-perl-0.9.orig/debian/compat +++ libdata-sorting-perl-0.9/debian/compat @@ -0,0 +1 @@ +7 --- libdata-sorting-perl-0.9.orig/debian/README.source +++ libdata-sorting-perl-0.9/debian/README.source @@ -0,0 +1,6 @@ +This package uses quilt to manage all modifications to the upstream +source. Changes are stored in the source package as diffs in +debian/patches and applied during the build. + +See /usr/share/doc/quilt/README.source for a detailed explanation. + --- libdata-sorting-perl-0.9.orig/debian/changelog +++ libdata-sorting-perl-0.9/debian/changelog @@ -0,0 +1,60 @@ +libdata-sorting-perl (0.9-4) unstable; urgency=low + + * test-warnings.patch: use Array::Compare instead of the smart match + operator "~~", which has changed its behaviour in Perl 5.10.1 + (closes: #546236); build depend on libarray-compare-perl, drop version + requirement from Perl build dependency. + * Add /me to Uploaders. + * Set Standards-Version to 3.8.3 (no changes). + + -- gregor herrmann Mon, 19 Oct 2009 21:15:38 +0200 + +libdata-sorting-perl (0.9-3) unstable; urgency=low + + [ gregor herrmann ] + * Take over for the Debian Perl Group with maintainer's permission + (http://lists.debian.org/debian-perl/2008/06/msg00039.html) + * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser + field (source stanza); Homepage field (source stanza). Changed: + Maintainer set to Debian Perl Group (was: Florian Ragwitz + ); Florian Ragwitz moved + to Uploaders. + * Add debian/watch. + * debian/control: Changed: Switched Vcs-Browser field to ViewSVN + (source stanza). + * debian/control: Added: ${misc:Depends} to Depends: field. + + [ Ryan Niebur ] + * Remove Florian Ragwitz from Uploaders + * Close ITA (Closes: #523128) + + [ Nathan Handler ] + * debian/watch: Update to ignore development releases. + + [ Ansgar Burchardt ] + * Refresh rules for debhelper 7. + * Bump Standards-Version to 3.8.2. + * Add myself to Uploaders. + * No longer install README (copy of POD documentation). + * Convert debian/copyright to proposed machine-readable format. + * Fix warnings that showed up in the test suite + + new patches "fix-uninitialized-value-warning.patch" and + "test-warnings.patch" + + Build-dep on perl (>= 5.10) because the patch uses the ~~ operator + + Add quilt framework and README.source + + -- Ansgar Burchardt Wed, 22 Jul 2009 13:40:54 +0200 + +libdata-sorting-perl (0.9-2) unstable; urgency=low + + * Added missing build dependency to perl in debian/control. + + -- Florian Ragwitz Sun, 2 May 2004 17:58:40 +0200 + +libdata-sorting-perl (0.9-1) unstable; urgency=low + + * Initial Release (Closes: #211337). + + -- Florian Ragwitz Thu, 22 Apr 2004 16:52:44 +0200 + --- libdata-sorting-perl-0.9.orig/debian/rules +++ libdata-sorting-perl-0.9/debian/rules @@ -0,0 +1,3 @@ +#!/usr/bin/make -f +%: + dh --with quilt $@ --- libdata-sorting-perl-0.9.orig/debian/patches/test-warnings.patch +++ libdata-sorting-perl-0.9/debian/patches/test-warnings.patch @@ -0,0 +1,53 @@ +Subject: Fix warnings when comparing arrays +Date: Wed, 22 Jul 2009 13:29:28 +0200 +From: Ansgar Burchardt +X-Forwarded: https://rt.cpan.org/Ticket/Display.html?id=48088 + +This patch fixes several warnings like + + Argument "Foo12a" isn't numeric in numeric ne (!=) + at t/sort_tests.pl line 18. + +that showed up in t/misc and t/substrs. + +We use Perl 5.10's ~~ operator to compare arrays for equality now. + +Take 2: + +Author: gregor herrmann +Description: we now use Array::Compare, since the ~~ operator has changed in + 5.10.1. From perldelta: + + It is now a run-time error to use the smart match operator "~~" with an + object that has no overload defined for it. (This way "~~" will not break + encapsulation by matching against the object's internal representation as a + reference.) + +Bugs-Debian: #546236 + +--- a/t/sort_tests.pl ++++ b/t/sort_tests.pl +@@ -1,5 +1,7 @@ + # t/sort_tests.pl -- utility routines for Data::Sorting test scripts. + ++use Array::Compare; ++ + # Inspiried by test.pl from Sort::Naturally by Sean M. Burke + + sub shuffle { +@@ -13,13 +15,8 @@ + # warn "Checking: " . join( ', ', map "'$_'", @$array ) . "\n"; + CANDIDATE: foreach my $candidate (@_) { + # warn "Against: " . join( ', ', map "'$_'", @$candidate ) . "\n"; +- next CANDIDATE unless ( $#$array = $#$candidate ); +- foreach my $idx ( 0 .. $#$array ) { +- next CANDIDATE unless ( $array->[$idx] eq $candidate->[$idx] +- or $array->[$idx] != 0 and $array->[$idx] == $candidate->[$idx] ); +- } +- # warn "Matched!"; +- return 1; ++ my $comp = Array::Compare->new; ++ return 1 if $comp->compare( $array, $candidate ); + } + # warn( "Didn't match!" ); + return --- libdata-sorting-perl-0.9.orig/debian/patches/fix-uninitialized-value-warning.patch +++ libdata-sorting-perl-0.9/debian/patches/fix-uninitialized-value-warning.patch @@ -0,0 +1,22 @@ +Subject: Fix uninitialized value $flagname warning +Date: Wed, 22 Jul 2009 13:29:28 +0200 +From: Ansgar Burchardt +X-Forwarded: https://rt.cpan.org/Ticket/Display.html?id=48088 + +This fixes the warning + + Use of uninitialized value $flagname in string eq at + [...]/lib/Data/Sorting.pm line 420. + +that showed up in the test suite. +--- libdata-sorting-perl.orig/Sorting.pm ++++ libdata-sorting-perl/Sorting.pm +@@ -419,7 +419,7 @@ + my ( $flagname ) = ( $token =~ /^\-(\w+)$/ ); + if ( $flagname and $SupportedOptions{$flagname} ) { + $state{ $flagname } = shift @arguments; +- } elsif ( $flagname eq 'sortkey' ) { ++ } elsif ( defined($flagname) and $flagname eq 'sortkey' ) { + push @rules, { @DefaultState, %state, 'sortkey' => shift @arguments }; + } elsif ( ref($token) eq 'HASH' ) { + push @rules, { @DefaultState, %state, %$token }; --- libdata-sorting-perl-0.9.orig/debian/patches/series +++ libdata-sorting-perl-0.9/debian/patches/series @@ -0,0 +1,2 @@ +fix-uninitialized-value-warning.patch +test-warnings.patch