r19501 - in /trunk/libclass-std-perl/debian: changelog control patches/ patches/man_line_too_long.patch patches/series rules
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue May 6 11:24:45 UTC 2008
Author: dmn
Date: Tue May 6 11:24:40 2008
New Revision: 19501
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19501
Log:
* move libversion-perl to B-D-I
* add man_line_too_long.patch splitting long lines in man
+ add quilt to build-dependencies and debian/rules
Added:
trunk/libclass-std-perl/debian/patches/
trunk/libclass-std-perl/debian/patches/man_line_too_long.patch
trunk/libclass-std-perl/debian/patches/series
Modified:
trunk/libclass-std-perl/debian/changelog
trunk/libclass-std-perl/debian/control
trunk/libclass-std-perl/debian/rules
Modified: trunk/libclass-std-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-std-perl/debian/changelog?rev=19501&op=diff
==============================================================================
--- trunk/libclass-std-perl/debian/changelog (original)
+++ trunk/libclass-std-perl/debian/changelog Tue May 6 11:24:40 2008
@@ -15,6 +15,9 @@
+ do not install README as it is useless
+ install examples in demo/
* Bump Standards-Version to 3.7.3 (no changes)
+ * move libversion-perl to B-D-I
+ * add man_line_too_long.patch splitting long lines in man
+ + add quilt to build-dependencies and debian/rules
-- Damyan Ivanov <dmn at debian.org> Tue, 06 May 2008 12:45:57 +0300
Modified: trunk/libclass-std-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-std-perl/debian/control?rev=19501&op=diff
==============================================================================
--- trunk/libclass-std-perl/debian/control (original)
+++ trunk/libclass-std-perl/debian/control Tue May 6 11:24:40 2008
@@ -1,8 +1,8 @@
Source: libclass-std-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 5.0.0), libmodule-build-perl, libversion-perl
-Build-Depends-Indep: perl (>= 5.8.8-7)
+Build-Depends: debhelper (>= 5.0.0), libmodule-build-perl, quilt (>= 0.40)
+Build-Depends-Indep: perl (>= 5.8.8-7), libversion-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Damyan Ivanov <dmn at debian.org>
Standards-Version: 3.7.3
Added: trunk/libclass-std-perl/debian/patches/man_line_too_long.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-std-perl/debian/patches/man_line_too_long.patch?rev=19501&op=file
==============================================================================
--- trunk/libclass-std-perl/debian/patches/man_line_too_long.patch (added)
+++ trunk/libclass-std-perl/debian/patches/man_line_too_long.patch Tue May 6 11:24:40 2008
@@ -1,0 +1,147 @@
+Index: libclass-std-perl/lib/Class/Std.pm
+===================================================================
+--- libclass-std-perl.orig/lib/Class/Std.pm 2008-05-06 13:52:10.000000000 +0300
++++ libclass-std-perl/lib/Class/Std.pm 2008-05-06 13:54:26.000000000 +0300
+@@ -722,7 +722,8 @@
+ {
+ # Objects of this class have the following attributes...
+ my %root_of; # The root directory of the file hierarchy
+- my %files_of; # Array storing object for each file in root directory
++ my %files_of;
++ # Array storing object for each file in root directory
+
+ # Constructor takes path of file system root directory...
+ sub new {
+@@ -747,7 +748,8 @@
+ = File::System->list_files($root_of{ident $self});
+ }
+
+- # Flatten the "files" attribute's array to produce a file list...
++ # Flatten the "files" attribute's array to produce
++ # a file list...
+ return @{ $files_of{ident $self} };
+ }
+ }
+@@ -802,7 +804,8 @@
+ # Objects of this class have the following attributes...
+
+ my %root_of; # The root directory of the file hierarchy
+- my %files_of; # Array storing object for each file in root directory
++ my %files_of;
++ # Array storing object for each file in root directory
+
+ This is 90 degrees to the usual hash-based approach. In hash-based
+ classes, all the attributes of one object are stored in a single hash;
+@@ -878,7 +881,8 @@
+ But, since there's no such hash declared in the scope, use strict will
+ complain (with extreme prejudice):
+
+- Global symbol "%naem_of" requires explicit package name at Hierarchy.pm line 86
++ Global symbol "%naem_of" requires explicit package name
++ at Hierarchy.pm line 86
+
+ Not only is that consistency check now automatic, it's also performed at
+ compile time.
+@@ -962,7 +966,8 @@
+ {
+ # Objects of this class have the following attributes...
+ my %root_of; # The root directory of the file hierarchy
+- my %files_of; # Array storing object for each file in root directory
++ my %files_of;
++ # Array storing object for each file in root directory
+
+ # Constructor takes path of file system root directory...
+ sub new {
+@@ -1197,14 +1202,17 @@
+ package Client;
+ use Class::Std::Utils;
+ {
+- my %client_num_of :ATTR; # Every client has a basic ID number
++ my %client_num_of :ATTR;
++ # Every client has a basic ID number
+ my %name_of :ATTR;
+
+ sub BUILD {
+ my ($self, $ident, $arg_ref) = @_;
+
+- $client_num_of{$ident} = $arg_ref->{'Client'}{client_num};
+- $name_of{$ident} = $arg_ref->{'Client'}{client_name};
++ $client_num_of{$ident}
++ = $arg_ref->{'Client'}{client_num};
++ $name_of{$ident}
++ = $arg_ref->{'Client'}{client_name};
+ }
+ }
+
+@@ -1212,7 +1220,8 @@
+ use base qw( Client );
+ use Class::Std::Utils;
+ {
+- my %client_num_of; # Corporate clients have an additional ID number
++ my %client_num_of;
++ # Corporate clients have an additional ID number
+ my %corporation_of;
+ my %position_of;
+
+@@ -1280,7 +1289,8 @@
+ client_name => 'Humperdinck',
+ corp_name => 'Florin',
+ position => 'CEO',
+- client_num => '124C1', # Flattened from 'Client' nested subhash
++ client_num => '124C1',
++ # Flattened from 'Client' nested subhash
+
+ 'Client' => { client_num => '124C1' },
+ 'Client::Corporate' => { client_num => 'F_1692' },
+@@ -1292,7 +1302,8 @@
+ client_name => 'Humperdinck',
+ corp_name => 'Florin',
+ position => 'CEO',
+- client_num => 'F_1692', # Flattened from 'Client::Corporate' subhash
++ client_num => 'F_1692',
++ # Flattened from 'Client::Corporate' subhash
+
+ 'Client' => { client_num => '124C1' },
+ 'Client::Corporate' => { client_num => 'F_1692' },
+@@ -1305,14 +1316,16 @@
+ sub Client::BUILD {
+ my ($self, $ident, $arg_ref) = @_;
+
+- $client_num_of{$ident} = $arg_ref->{client_num}; # '124C1'
++ $client_num_of{$ident} = $arg_ref->{client_num};
++ # '124C1'
+ $name_of{$ident} = $arg_ref->{client_name};
+ }
+
+ sub Client::Corporate::BUILD {
+ my ($self, $ident, $arg_ref) = @_;
+
+- $client_num_of{$ident} = $arg_ref->{client_num}; # 'F_1692'
++ $client_num_of{$ident} = $arg_ref->{client_num};
++ # 'F_1692'
+ $corporation_of{$ident} = $arg_ref->{corp_name};
+ $position_of{$ident} = $arg_ref->{position};
+ }
+@@ -1430,14 +1443,18 @@
+ sub AUTOMETHOD {
+ my ($self, $ident, $number) = @_;
+
+- my $subname = $_; # Requested subroutine name is passed via $_
++ my $subname = $_; # Requested subroutine name
++ # is passed via $_
+
+ # Return failure if not a get_<name> or set_<name>
+- # (Next AUTOMETHOD() in hierarchy will then be tried instead)...
+- my ($mode, $name) = $subname =~ m/\A ([gs]et)_(.*) \z/xms
++ # (Next AUTOMETHOD() in hierarchy will then be
++ # tried instead)...
++ my ($mode, $name)
++ = $subname =~ m/\A ([gs]et)_(.*) \z/xms
+ or return;
+
+- # If get_<name>, return a handler that just returns the old number...
++ # If get_<name>, return a handler that just
++ # returns the old number...
+ return sub { return $entries_of{$ident}->{$name}; }
+ if $mode eq 'get';
+
Added: trunk/libclass-std-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-std-perl/debian/patches/series?rev=19501&op=file
==============================================================================
--- trunk/libclass-std-perl/debian/patches/series (added)
+++ trunk/libclass-std-perl/debian/patches/series Tue May 6 11:24:40 2008
@@ -1,0 +1,1 @@
+man_line_too_long.patch
Modified: trunk/libclass-std-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-std-perl/debian/rules?rev=19501&op=diff
==============================================================================
--- trunk/libclass-std-perl/debian/rules (original)
+++ trunk/libclass-std-perl/debian/rules Tue May 6 11:24:40 2008
@@ -10,6 +10,8 @@
# Uncomment this to turn on verbose mode.
#export DH_VERBOSE=1
+include /usr/share/quilt/quilt.make
+
# 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
@@ -19,7 +21,7 @@
TMP = $(CURDIR)/debian/$(PACKAGE)
build: build-stamp
-build-stamp:
+build-stamp: $(QUILT_STAMPFN)
dh_testdir
# Add commands to compile the package here
$(PERL) Build.PL installdirs=vendor
@@ -27,7 +29,7 @@
$(PERL) Build test
touch $@
-clean:
+clean: unpatch
dh_testdir
dh_testroot
dh_clean build-stamp install-stamp
More information about the Pkg-perl-cvs-commits
mailing list