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