r20423 - in /trunk/liblinux-lvm-perl/debian: changelog control patches/ patches/process_whitespace_in_command_output patches/series rules
gwolf at users.alioth.debian.org
gwolf at users.alioth.debian.org
Mon May 26 17:19:58 UTC 2008
Author: gwolf
Date: Mon May 26 17:19:57 2008
New Revision: 20423
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=20423
Log:
Fixing #460604
Added:
trunk/liblinux-lvm-perl/debian/patches/
trunk/liblinux-lvm-perl/debian/patches/process_whitespace_in_command_output
trunk/liblinux-lvm-perl/debian/patches/series
Modified:
trunk/liblinux-lvm-perl/debian/changelog
trunk/liblinux-lvm-perl/debian/control
trunk/liblinux-lvm-perl/debian/rules
Modified: trunk/liblinux-lvm-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblinux-lvm-perl/debian/changelog?rev=20423&op=diff
==============================================================================
--- trunk/liblinux-lvm-perl/debian/changelog (original)
+++ trunk/liblinux-lvm-perl/debian/changelog Mon May 26 17:19:57 2008
@@ -1,3 +1,14 @@
+liblinux-lvm-perl (0.13-2) unstable; urgency=low
+
+ * Added myself as an uploader
+ * Bumped up standards-version to 3.7.3 (no changes needed)
+ * Patched to accept (and ignore) leading whitespace from the external
+ command output (Closes: #460604)
+ * Added the pkg-perl group as the maintainer; Jeremiah joins me as an
+ uploader.
+
+ -- Gunnar Wolf <gwolf at debian.org> Mon, 26 May 2008 12:18:54 -0500
+
liblinux-lvm-perl (0.13-1) unstable; urgency=low
* Initial Release. (closes: #447302).
Modified: trunk/liblinux-lvm-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblinux-lvm-perl/debian/control?rev=20423&op=diff
==============================================================================
--- trunk/liblinux-lvm-perl/debian/control (original)
+++ trunk/liblinux-lvm-perl/debian/control Mon May 26 17:19:57 2008
@@ -1,10 +1,11 @@
Source: liblinux-lvm-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 5.0.0)
+Build-Depends: debhelper (>= 5.0.0), quilt
Build-Depends-Indep: perl (>= 5.8.8-11.1)
-Maintainer: Jeremiah C. Foster <jeremiah at jeremiahfoster.com>
-Standards-Version: 3.7.2
+Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
+Uploaders: Jeremiah C. Foster <jeremiah at jeremiahfoster.com>, Gunnar Wolf <gwolf at debian.org>
+Standards-Version: 3.7.3
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/liblinux-lvm-perl/
Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/liblinux-lvm-perl/
Homepage: http://search.cpan.org/dist/Linux::LVM/
Added: trunk/liblinux-lvm-perl/debian/patches/process_whitespace_in_command_output
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblinux-lvm-perl/debian/patches/process_whitespace_in_command_output?rev=20423&op=file
==============================================================================
--- trunk/liblinux-lvm-perl/debian/patches/process_whitespace_in_command_output (added)
+++ trunk/liblinux-lvm-perl/debian/patches/process_whitespace_in_command_output Mon May 26 17:19:57 2008
@@ -1,0 +1,360 @@
+Index: liblinux-lvm-perl/LVM.pm
+===================================================================
+--- liblinux-lvm-perl.orig/LVM.pm 2008-05-26 11:52:05.000000000 -0500
++++ liblinux-lvm-perl/LVM.pm 2008-05-26 11:53:06.000000000 -0500
+@@ -157,169 +157,169 @@
+ VGINF: foreach(@vginfo) {
+
+ # Parse the volume group name.
+- if( m/^VG Name\s+(\S+)/ ) {
++ if( m/^\s*VG Name\s+(\S+)/ ) {
+ $vgn = $1; $vghash{$vgn}->{vgname} = $1;
+ next VGINF; }
+
+ # Parse the volume group access.
+- elsif( m/^VG Access\s+(\S+)/ ) {
++ elsif( m/^\s*VG Access\s+(\S+)/ ) {
+ $vghash{$vgn}->{access} = $1;
+ next VGINF; }
+
+ # Parse the volume group status.
+- elsif( m/^VG Status\s+(.+)/ ) {
++ elsif( m/^\s*VG Status\s+(.+)/ ) {
+ $vghash{$vgn}->{status} = $1;
+ next VGINF; }
+
+ # Parse the volume group number.
+- elsif( m/^VG #\s+(\S+)/ ) {
++ elsif( m/^\s*VG #\s+(\S+)/ ) {
+ $vghash{$vgn}->{vg_number} = $1;
+ next VGINF; }
+
+ # Parse the maximum logical volume size and size unit for the volume group.
+- elsif( m/^MAX LV Size\s+(\S+) (\S+)/ ) {
++ elsif( m/^\s*MAX LV Size\s+(\S+) (\S+)/ ) {
+ $vghash{$vgn}->{max_lv_size} = $1;
+ $vghash{$vgn}->{max_lv_size_unit} = $2;
+ next VGINF; }
+
+ # Parse the maximum number of logical volumes for the volume group.
+- elsif( m/^MAX LV\s+(\S+)/ ) {
++ elsif( m/^\s*MAX LV\s+(\S+)/ ) {
+ $vghash{$vgn}->{max_lv} = $1;
+ next VGINF; }
+
+ # Parse the current number of logical volumes for the volume group.
+- elsif( m/^Cur LV\s+(\S+)/ ) {
++ elsif( m/^\s*Cur LV\s+(\S+)/ ) {
+ $vghash{$vgn}->{cur_lv} = $1;
+ next VGINF; }
+
+ # Parse the number of open logical volumes for the volume group.
+- elsif( m/^Open LV\s+(\S+)/ ) {
++ elsif( m/^\s*Open LV\s+(\S+)/ ) {
+ $vghash{$vgn}->{open_lv} = $1;
+ next VGINF; }
+
+ # Parse the number of physical volumes accessible to the volume group.
+- elsif( m/^Max PV\s+(\S+)/ ) {
++ elsif( m/^\s*Max PV\s+(\S+)/ ) {
+ $vghash{$vgn}->{max_pv} = $1;
+ next VGINF; }
+
+ # Parse the current number of physical volumes in the volume group.
+- elsif( m/^Cur PV\s+(\S+)/ ) {
++ elsif( m/^\s*Cur PV\s+(\S+)/ ) {
+ $vghash{$vgn}->{cur_pv} = $1;
+ next VGINF; }
+
+ # Parse the number of active physical volumes in the volume group.
+- elsif( m/^Act PV\s+(\S+)/ ) {
++ elsif( m/^\s*Act PV\s+(\S+)/ ) {
+ $vghash{$vgn}->{act_pv} = $1;
+ next VGINF; }
+
+ # Parse the size of the volume group.
+- elsif( m/^VG Size\s+(\S+) (\S+)/ ) {
++ elsif( m/^\s*VG Size\s+(\S+) (\S+)/ ) {
+ $vghash{$vgn}->{vg_size} = $1;
+ $vghash{$vgn}->{vg_size_unit} = $2;
+ next VGINF; }
+
+ # Parse the physical extent size and unit for one extent of volume group.
+- elsif( m/^PE Size\s+(\S+) (\S+)/ ) {
++ elsif( m/^\s*PE Size\s+(\S+) (\S+)/ ) {
+ $vghash{$vgn}->{pe_size} = $1;
+ $vghash{$vgn}->{pe_size_unit} = $2;
+ next VGINF; }
+
+ # Parse the total number and number of free physical extents from the physical disk.
+- elsif( m/^Total PE \/ Free PE\s+(\S+) \/ (\S+)/m ) {
++ elsif( m/^\s*Total PE \/ Free PE\s+(\S+) \/ (\S+)/m ) {
+ $vghash{$vgn}->{pvols}->{$pvn}->{total_pe} = $1;
+ $vghash{$vgn}->{pvols}->{$pvn}->{free_pe} = $2;
+ next VGINF; }
+
+ # Parse the total number of physical extents from the volume group.
+- elsif( m/^Total PE\s+(\S+)/ ) {
++ elsif( m/^\s*Total PE\s+(\S+)/ ) {
+ $vghash{$vgn}->{total_pe} = $1;
+ next VGINF; }
+
+ # Parse the number of allocated physical extents from the volume group.
+- elsif( m/^Alloc PE \/ Size\s+(\S+) \/ (\S+) (\S+)/ ) {
++ elsif( m/^\s*Alloc PE \/ Size\s+(\S+) \/ (\S+) (\S+)/ ) {
+ $vghash{$vgn}->{alloc_pe} = $1;
+ $vghash{$vgn}->{alloc_pe_size} = $2;
+ $vghash{$vgn}->{alloc_pe_size_unit} = $3;
+ next VGINF; }
+
+ # Parse the volume group name.
+- elsif( m/^Free PE \/ Size\s+(\S+) \/ (\S+) (\S+)/ ) {
++ elsif( m/^\s*Free PE \/ Size\s+(\S+) \/ (\S+) (\S+)/ ) {
+ $vghash{$vgn}->{free_pe} = $1;
+ $vghash{$vgn}->{free_pe_size} = $2;
+ $vghash{$vgn}->{free_pe_size_unit} = $3;
+ next VGINF; }
+
+ # Parse the volume group uuid.
+- elsif( m/^VG UUID\s+(\S+)/ ) {
++ elsif( m/^\s*VG UUID\s+(\S+)/ ) {
+ $vghash{$vgn}->{uuid} = $1;
+ next VGINF; }
+
+ # Parse the logical volume name.
+- elsif( m/^LV Name\s+(\S+)/ ) {
++ elsif( m/^\s*LV Name\s+(\S+)/ ) {
+ $lvn = $1;
+ $vghash{$vgn}->{lvols}->{$lvn}->{name} = $1;
+ next VGINF; }
+
+ # Parse the logical volume size and unit.
+- elsif( m/^LV Size\s+(\S+) (\S+)/ ) {
++ elsif( m/^\s*LV Size\s+(\S+) (\S+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{lv_size} = $1;
+ $vghash{$vgn}->{lvols}->{$lvn}->{lv_size_unit} = $2;
+ next VGINF; }
+
+ # Parse the logical volume write access.
+- elsif( m/^LV Write Access\s+(\S+)/ ) {
++ elsif( m/^\s*LV Write Access\s+(\S+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{write_access} = $1;
+ next VGINF; }
+
+ # Parse the logical volume status.
+- elsif( m/^LV Status\s+(.+)/ ) {
++ elsif( m/^\s*LV Status\s+(.+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{status} = $1;
+ next VGINF; }
+
+ # Parse the number of logical extents in the logical volume.
+- elsif( m/^Current LE\s+(\S+)/ ) {
++ elsif( m/^\s*Current LE\s+(\S+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{cur_le} = $1;
+ next VGINF; }
+
+ # Parse the number of allocated logical extents in the logical volume.
+- elsif( m/^Allocated LE\s+(\S+)/ ) {
++ elsif( m/^\s*Allocated LE\s+(\S+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{alloc_le} = $1;
+ next VGINF; }
+
+ # Parse the allocation type for the logical volume.
+- elsif( m/^Allocation\s+(.+)/ ) {
++ elsif( m/^\s*Allocation\s+(.+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{allocation} = $1;
+ next VGINF; }
+
+ # Parse the volume number.
+- elsif( m/^LV #\s+(\S+)/ ) {
++ elsif( m/^\s*LV #\s+(\S+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{lv_number} = $1;
+ next VGINF; }
+
+ # Parse the number of times the logical volume is open.
+- elsif( m/^# open\s+(\S+)/ ) {
++ elsif( m/^\s*# open\s+(\S+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{open_lv} = $1;
+ next VGINF; }
+
+ # Parse the block device of the logical volume.
+- elsif( m/^Block device\s+(\S+)/ ) {
++ elsif( m/^\s*Block device\s+(\S+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{device} = $1;
+ next VGINF; }
+
+ # Parse the value for the read ahead sectors of the logical volume.
+- elsif( m/^Read ahead sectors\s+(\S+)/ ) {
++ elsif( m/^\s*Read ahead sectors\s+(\S+)/ ) {
+ $vghash{$vgn}->{lvols}->{$lvn}->{read_ahead} = $1;
+ next VGINF; }
+
+ # Parse the physical disk name.
+- elsif( m/^PV Name \(\#\)\s+(\S+) \((\S)\)/ ) {
++ elsif( m/^\s*PV Name \(\#\)\s+(\S+) \((\S)\)/ ) {
+ $pvn = $2;
+ $vghash{$vgn}->{pvols}->{$pvn}->{device} = $1;
+ $vghash{$vgn}->{pvols}->{$pvn}->{pv_number} = $2;
+ next VGINF; }
+
+ # Parse the status of the physical disk.
+- elsif( m/^PV Status\s+(.+)/ ) {
++ elsif( m/^\s*PV Status\s+(.+)/ ) {
+ $vghash{$vgn}->{pvols}->{$pvn}->{status} = $1;
+ next VGINF; }
+ }
+@@ -347,17 +347,17 @@
+
+ PVINF: foreach(@pvinfo) {
+ # Get the name of the physical volume.
+- if( m/^PV Name\s+(\S+)/ ) {
++ if( m/^\s*PV Name\s+(\S+)/ ) {
+ $pvhash{pv_name} = $1;
+ next PVINF; }
+
+ # Get the name of the volume group the physical volume belongs to.
+- if( m/^VG Name\s+(\S+)/ ) {
++ if( m/^\s*VG Name\s+(\S+)/ ) {
+ $pvhash{vg_name} = $1;
+ next PVINF; }
+
+ # Get the size information of the physical volume.
+- if( m/^PV Size\s+(\S+) (\S+) \[(\S+) secs\] \/ (.+)/ ) {
++ if( m/^\s*PV Size\s+(\S+) (\S+) \[(\S+) secs\] \/ (.+)/ ) {
+ $pvhash{size} = $1;
+ $pvhash{size_unit} = $2;
+ $pvhash{sectors} = $3;
+@@ -365,48 +365,48 @@
+ next PVINF; }
+
+ # Get the physical volume number.
+- if( m/^PV\#\s+(\S+)/ ) {
++ if( m/^\s*PV\#\s+(\S+)/ ) {
+ $pvhash{pv_number} = $1;
+ next PVINF; }
+
+ # Get the status of the physical volume.
+- if( m/^PV Status\s+(.+)/ ) {
++ if( m/^\s*PV Status\s+(.+)/ ) {
+ $pvhash{status} = $1;
+ next PVINF; }
+
+ # Get the allocation status of the physical volume.
+- if( m/^Allocatable\s+(.+)/ ) {
++ if( m/^\s*Allocatable\s+(.+)/ ) {
+ $pvhash{allocatable} = $1;
+ next PVINF; }
+
+ # Get the number of logical volumes on the physical volume.
+- if( m/^Cur LV\s+(\S+)/ ) {
++ if( m/^\s*Cur LV\s+(\S+)/ ) {
+ $pvhash{num_lvols} = $1;
+ next PVINF; }
+
+ # Get the physical extent size and unit of the physical volume.
+- if( m/^PE Size \((\S+)\)\s+(\S+)/ ) {
++ if( m/^\s*PE Size \((\S+)\)\s+(\S+)/ ) {
+ $pvhash{pe_size} = $2;
+ $pvhash{pe_size_unit} = $1;
+ next PVINF; }
+
+ # Get the total numver of physical extents on the physical volume.
+- if( m/^Total PE\s+(\S+)/ ) {
++ if( m/^\s*Total PE\s+(\S+)/ ) {
+ $pvhash{total_pe} = $1;
+ next PVINF; }
+
+ # Get the number of free extents on the physical volume.
+- if( m/^Free PE\s+(\S+)/ ) {
++ if( m/^\s*Free PE\s+(\S+)/ ) {
+ $pvhash{free_pe} = $1;
+ next PVINF; }
+
+ # Get the number of allocated physical extents on the physical volume.
+- if( m/^Allocated PE\s+(\S+)/ ) {
++ if( m/^\s*Allocated PE\s+(\S+)/ ) {
+ $pvhash{alloc_pe} = $1;
+ next PVINF; }
+
+ # Get the UUID of the physical volume.
+- if( m/^PV UUID\s+(\S+)/ ) {
++ if( m/^\s*PV UUID\s+(\S+)/ ) {
+ $pvhash{uuid} = $1;
+ next PVINF; }
+ }
+@@ -434,63 +434,63 @@
+ LVINF: foreach(@lvinfo) {
+
+ # Get the logical volume name.
+- if( m/^LV Name\s+(\S+)/ ) {
++ if( m/^\s*LV Name\s+(\S+)/ ) {
+ $lvhash{lv_name} = $1;
+ next LVINF; }
+
+ # Get the volume group name.
+- if( m/^VG Name\s+(\S+)/ ) {
++ if( m/^\s*VG Name\s+(\S+)/ ) {
+ $lvhash{vg_name} = $1;
+ next LVINF; }
+
+ # Get the logical volume write status.
+- if( m/^LV Write Access\s+(.+)/ ) {
++ if( m/^\s*LV Write Access\s+(.+)/ ) {
+ $lvhash{access} = $1;
+ next LVINF; }
+
+ # Get the logical volume status.
+- if( m/^LV Status\s+(.+)/ ) {
++ if( m/^\s*LV Status\s+(.+)/ ) {
+ $lvhash{status} = $1;
+ next LVINF; }
+
+ # Get the logical volume number.
+- if( m/^LV \#\s+(\S+)/ ) {
++ if( m/^\s*LV \#\s+(\S+)/ ) {
+ $lvhash{lv_number} = $1;
+ next LVINF; }
+
+ # Get the number of opens for the logical volume.
+- if( m/^\# open\s+(\S+)/ ) {
++ if( m/^\s*\# open\s+(\S+)/ ) {
+ $lvhash{lv_open} = $1;
+ next LVINF; }
+
+ # Get the logical volume size and size unit.
+- if( m/^LV Size\s+(\S+) (\S+)/ ) {
++ if( m/^\s*LV Size\s+(\S+) (\S+)/ ) {
+ $lvhash{size} = $1;
+ $lvhash{size_unit} = $2;
+ next LVINF; }
+
+ # Get the number of extents assigned to the logical volume.
+- if( m/^Current LE\s+(\S+)/ ) {
++ if( m/^\s*Current LE\s+(\S+)/ ) {
+ $lvhash{current_le} = $1;
+ next LVINF; }
+
+ # Get the number of extents allocated to the logical volume.
+- if( m/^Allocated LE\s+(\S+)/ ) {
++ if( m/^\s*Allocated LE\s+(\S+)/ ) {
+ $lvhash{alloc_le} = $1;
+ next LVINF; }
+
+ # Get the extent allocation type of the logical volume.
+- if( m/^Allocation\s+(.+)/ ) {
++ if( m/^\s*Allocation\s+(.+)/ ) {
+ $lvhash{allocation} = $1;
+ next LVINF; }
+
+ # Get the number of read ahead sectors for the logical volume.
+- if( m/^Read ahead sectors\s+(\S+)/ ) {
++ if( m/^\s*Read ahead sectors\s+(\S+)/ ) {
+ $lvhash{read_ahead} = $1;
+ next LVINF; }
+
+ # Get the block device of the logical volume.
+- if( m/^Block device\s+(\S+)/ ) {
++ if( m/^\s*Block device\s+(\S+)/ ) {
+ $lvhash{block_device} = $1;
+ next LVINF; }
+ }
Added: trunk/liblinux-lvm-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblinux-lvm-perl/debian/patches/series?rev=20423&op=file
==============================================================================
--- trunk/liblinux-lvm-perl/debian/patches/series (added)
+++ trunk/liblinux-lvm-perl/debian/patches/series Mon May 26 17:19:57 2008
@@ -1,0 +1,1 @@
+process_whitespace_in_command_output
Modified: trunk/liblinux-lvm-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblinux-lvm-perl/debian/rules?rev=20423&op=diff
==============================================================================
--- trunk/liblinux-lvm-perl/debian/rules (original)
+++ trunk/liblinux-lvm-perl/debian/rules Mon May 26 17:19:57 2008
@@ -19,8 +19,10 @@
TMP =$(CURDIR)/debian/$(PACKAGE)
+include /usr/share/quilt/quilt.make
+
build: build-stamp
-build-stamp:
+build-stamp: patch
dh_testdir
# As this is a architecture independent package, we are not
@@ -37,7 +39,7 @@
touch $@
-clean:
+clean: unpatch
dh_testdir
dh_testroot
More information about the Pkg-perl-cvs-commits
mailing list