r52277 - /trunk/libperl-apireference-perl/debian/regenerate.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Feb  7 14:25:32 2010
New Revision: 52277

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52277
Log:
drop unused pad_with_zeros()

Modified:
    trunk/libperl-apireference-perl/debian/regenerate.pl

Modified: trunk/libperl-apireference-perl/debian/regenerate.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libperl-apireference-perl/debian/regenerate.pl?rev=52277&op=diff
==============================================================================
--- trunk/libperl-apireference-perl/debian/regenerate.pl (original)
+++ trunk/libperl-apireference-perl/debian/regenerate.pl Sun Feb  7 14:25:32 2010
@@ -7,14 +7,6 @@
 
 use strict;
 use warnings;
-
-sub pad_with_zeros {
-  my $num = shift;
-  while(length($num) < 3) {
-    $num = "0" . $num;
-  }
-  return $num;
-}
 
 sub sortable {
   my $v = shift;