r60447 - in /trunk/liblatex-table-perl/debian: changelog control patches/ patches/series patches/use-MooseX-FollowPBP.patch
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Wed Jul 21 11:46:43 UTC 2010
Author: ansgar-guest
Date: Wed Jul 21 11:46:34 2010
New Revision: 60447
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60447
Log:
NOTE: MooseX::FollowPBP is not in Debian (yet), but we want to remove
libmoose-policy-perl from the archive (see #583460).
* Use MooseX::FollowPBP instead of Moose::Policy::FollowPBP.
+ new patch: use-MooseX-FollowPBP.patch
Added:
trunk/liblatex-table-perl/debian/patches/
trunk/liblatex-table-perl/debian/patches/series
trunk/liblatex-table-perl/debian/patches/use-MooseX-FollowPBP.patch
Modified:
trunk/liblatex-table-perl/debian/changelog
trunk/liblatex-table-perl/debian/control
Modified: trunk/liblatex-table-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/debian/changelog?rev=60447&op=diff
==============================================================================
--- trunk/liblatex-table-perl/debian/changelog (original)
+++ trunk/liblatex-table-perl/debian/changelog Wed Jul 21 11:46:34 2010
@@ -1,5 +1,10 @@
liblatex-table-perl (1.0.1-2) UNRELEASED; urgency=low
+ NOTE: MooseX::FollowPBP is not in Debian (yet), but we want to remove
+ libmoose-policy-perl from the archive (see #583460).
+
+ * Use MooseX::FollowPBP instead of Moose::Policy::FollowPBP.
+ + new patch: use-MooseX-FollowPBP.patch
* Use source format 3.0 (quilt).
-- Ansgar Burchardt <ansgar at 43-1.org> Mon, 19 Jul 2010 13:48:31 +0900
Modified: trunk/liblatex-table-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/debian/control?rev=60447&op=diff
==============================================================================
--- trunk/liblatex-table-perl/debian/control (original)
+++ trunk/liblatex-table-perl/debian/control Wed Jul 21 11:46:34 2010
@@ -2,7 +2,7 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.0.50)
-Build-Depends-Indep: libmoose-perl (>= 0.76), libmoose-policy-perl, libtemplate-perl,
+Build-Depends-Indep: libmoose-perl (>= 0.76), libmoosex-followpbp-perl, libtemplate-perl,
libtest-nowarnings-perl, libtest-pod-coverage-perl (>= 1.04),
libtest-pod-perl (>= 1.14), libtest-perl-critic-perl, perl (>= 5.10.0)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
@@ -16,7 +16,7 @@
Package: liblatex-table-perl
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends}, liblatex-driver-perl,
- liblatex-encode-perl, libmoose-perl (>= 0.76), libmoose-policy-perl,
+ liblatex-encode-perl, libmoose-perl (>= 0.76), libmoosex-followpbp-perl,
libnumber-format-perl, libreadonly-perl, libtemplate-perl, libtext-csv-perl,
perl (>= 5.10.1) | libautodie-perl, perl (>= 5.10.0)
Suggests: texlive-latex-extra, texlive-latex3
Added: trunk/liblatex-table-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/debian/patches/series?rev=60447&op=file
==============================================================================
--- trunk/liblatex-table-perl/debian/patches/series (added)
+++ trunk/liblatex-table-perl/debian/patches/series Wed Jul 21 11:46:34 2010
@@ -1,0 +1,1 @@
+use-MooseX-FollowPBP.patch
Added: trunk/liblatex-table-perl/debian/patches/use-MooseX-FollowPBP.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/debian/patches/use-MooseX-FollowPBP.patch?rev=60447&op=file
==============================================================================
--- trunk/liblatex-table-perl/debian/patches/use-MooseX-FollowPBP.patch (added)
+++ trunk/liblatex-table-perl/debian/patches/use-MooseX-FollowPBP.patch Wed Jul 21 11:46:34 2010
@@ -1,0 +1,195 @@
+From: Ansgar Burchardt <ansgar at 43-1.org>
+Date: Wed, 21 Jul 2010 20:30:49 +0900
+Subject: Use MooseX::FollowPBP instead of Moose::Policy::FollowPBP
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=59519
+
+--- liblatex-table-perl.orig/Build.PL
++++ liblatex-table-perl/Build.PL
+@@ -12,7 +12,7 @@
+ 'perl' => '5.8.0',
+ 'English' => 0,
+ 'Moose' => 0.76,
+- 'Moose::Policy::FollowPBP' => 0,
++ 'MooseX::FollowPBP' => 0,
+ 'Module::Pluggable' => 0,
+ 'Scalar::Util' => 0,
+ 'Carp' => 0,
+--- liblatex-table-perl.orig/lib/LaTeX/Table.pm
++++ liblatex-table-perl/lib/LaTeX/Table.pm
+@@ -9,9 +9,9 @@
+ use strict;
+ use warnings;
+
+-use Moose::Policy 'Moose::Policy::FollowPBP';
+ use Moose;
+ use Moose::Util::TypeConstraints;
++use MooseX::FollowPBP;
+
+ use version; our $VERSION = qv('1.0.1');
+
+@@ -122,9 +122,9 @@
+ = 'LaTeX::Table::Types::'
+ . uc( substr $self->get_type, 0, 1 )
+ . substr $self->get_type, 1;
+- $self->set__type_obj( $type_obj_name->new( _table_obj => $self ) );
++ $self->_set_type_obj( $type_obj_name->new( _table_obj => $self ) );
+
+- return $self->get__type_obj->generate_latex_code();
++ return $self->_get_type_obj->generate_latex_code();
+ }
+
+ sub generate {
+@@ -280,7 +280,7 @@
+ }
+ push @summary, $type_of_this_col;
+ }
+- $self->set__data_summary( \@summary );
++ $self->_set_data_summary( \@summary );
+ return;
+ }
+
+@@ -302,7 +302,7 @@
+
+ my @code
+ = $is_header
+- ? ( $self->_get_hline_code( $self->get__RULE_TOP_ID ) )
++ ? ( $self->_get_hline_code( $self->_get_RULE_TOP_ID ) )
+ : ();
+ ROW:
+ for my $row ( @{$data_ref} ) {
+@@ -312,7 +312,7 @@
+ # empty rows produce a horizontal line
+ if ( !@cols ) {
+ push @code,
+- $self->_get_hline_code( $self->get__RULE_INNER_ID, 1 );
++ $self->_get_hline_code( $self->_get_RULE_INNER_ID, 1 );
+ next ROW;
+ }
+
+@@ -351,16 +351,16 @@
+
+ # do we have to draw a horizontal line?
+ if ( $i == scalar @{$data_ref} ) {
+- push @code, $self->_get_hline_code( $self->get__RULE_BOTTOM_ID );
++ push @code, $self->_get_hline_code( $self->_get_RULE_BOTTOM_ID );
+ }
+ else {
+- push @code, $self->_get_hline_code( $self->get__RULE_INNER_ID );
++ push @code, $self->_get_hline_code( $self->_get_RULE_INNER_ID );
+ }
+ }
+
+ # without header, just draw the topline, not this midline
+ if ( $is_header && $i ) {
+- push @code, $self->_get_hline_code( $self->get__RULE_MID_ID );
++ push @code, $self->_get_hline_code( $self->_get_RULE_MID_ID );
+ }
+
+ return $self->_align_code( \@code );
+@@ -405,7 +405,7 @@
+ {
+ $line = $theme->{RULES_CMD}->[$id];
+ }
+- if ( $id == $self->get__RULE_BOTTOM_ID ) {
++ if ( $id == $self->_get_RULE_BOTTOM_ID ) {
+ $id = 0;
+ }
+
+@@ -477,7 +477,7 @@
+ )
+ );
+ if ( !defined $col_def->{cols} ) {
+- my @summary = @{ $self->get__data_summary() };
++ my @summary = @{ $self->_get_data_summary() };
+ $col_def->{cols} = 1;
+ $col_def->{align}
+ = $self->get_coldef_strategy->{ $summary[$col_id]
+@@ -587,7 +587,7 @@
+
+ sub _get_coldef_code {
+ my ( $self, $data ) = @_;
+- my @cols = @{ $self->get__data_summary() };
++ my @cols = @{ $self->_get_data_summary() };
+ my $vlines = $self->get_theme_settings->{'VERTICAL_RULES'};
+
+ my $v0 = q{|} x $vlines->[0];
+@@ -685,10 +685,10 @@
+ 'only one allowed.' );
+ }
+ if ( $self->has_center || $self->has_right || $self->has_left ) {
+- $self->set__default_align(0);
++ $self->_set_default_align(0);
+ }
+ else {
+- $self->set__default_align(1);
++ $self->_set_default_align(1);
+ }
+
+ if ( $self->get_maincaption && $self->get_shortcaption ) {
+--- liblatex-table-perl.orig/Makefile.PL
++++ liblatex-table-perl/Makefile.PL
+@@ -18,7 +18,7 @@
+ 'File::Spec' => 0,
+ 'English' => 0,
+ 'Moose' => 0.76,
+- 'Moose::Policy::FollowPBP' => 0,
++ 'MooseX::FollowPBP' => 0,
+ 'Module::Pluggable' => 0,
+ 'Carp' => 0,
+ 'Scalar::Util' => 0,
+--- liblatex-table-perl.orig/lib/LaTeX/Table/Types/TypeI.pm
++++ liblatex-table-perl/lib/LaTeX/Table/Types/TypeI.pm
+@@ -31,7 +31,7 @@
+ }
+
+ my $template_vars = {
+- 'CENTER' => $tbl->get__default_align ? 1 : $tbl->get_center,
++ 'CENTER' => $tbl->_get_default_align ? 1 : $tbl->get_center,
+ 'LEFT' => $tbl->get_left(),
+ 'RIGHT' => $tbl->get_right(),
+ 'ENVIRONMENT' => $tbl->get_environment,
+@@ -89,9 +89,9 @@
+ ? $tbl->get_theme_settings->{DEFINE_COLORS} . "\n"
+ : q{}
+ ),
+- 'LT_NUM_COLUMNS' => scalar( @{ $tbl->get__data_summary() } ),
++ 'LT_NUM_COLUMNS' => scalar( @{ $tbl->_get_data_summary() } ),
+ 'LT_BOTTOM_RULE_CODE' =>
+- $tbl->_get_hline_code( $tbl->get__RULE_BOTTOM_ID ),
++ $tbl->_get_hline_code( $tbl->_get_RULE_BOTTOM_ID ),
+ };
+
+ my $template_obj = Template->new();
+@@ -184,9 +184,9 @@
+ my $v0 = q{|} x $tbl->get_theme_settings->{'VERTICAL_RULES'}->[0];
+
+ return
+- $tbl->_get_hline_code( $tbl->get__RULE_MID_ID )
++ $tbl->_get_hline_code( $tbl->_get_RULE_MID_ID )
+ . '\multicolumn{'
+- . @{ $tbl->get__data_summary() }
++ . @{ $tbl->_get_data_summary() }
+ . "}{${v0}r$v0}{{"
+ . $tbl->get_tabletailmsg
+ . "}} \\\\\n";
+--- liblatex-table-perl.orig/t/40.miscprivates.t
++++ liblatex-table-perl/t/40.miscprivates.t
+@@ -14,15 +14,15 @@
+
+ my $test_data = [ [ 1, 2, 4], [ 2, 3 ] ];
+ $table->_calc_data_summary($test_data);
+-my $summary = $table->get__data_summary();
++my $summary = $table->_get_data_summary();
+ is_deeply($summary, ['NUMBER','NUMBER','NUMBER'], 'all integers');
+
+ $test_data = [ [ 'a', 2, 4], [ 'b', 3 ] ];
+ $table->_calc_data_summary($test_data);
+-$summary = $table->get__data_summary();
++$summary = $table->_get_data_summary();
+ is_deeply($summary, ['DEFAULT','NUMBER','NUMBER'], 'not all integers');
+
+ $test_data = [ [ 'a', 2, ], [ '1', 3 ] ];
+ $table->_calc_data_summary($test_data);
+-$summary = $table->get__data_summary();
++$summary = $table->_get_data_summary();
+ is_deeply($summary, ['DEFAULT','NUMBER'], 'not all integers');
More information about the Pkg-perl-cvs-commits
mailing list