r52329 - in /trunk/dh-make-perl: debian/changelog dh-make-perl lib/DhMakePerl.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Feb  8 21:59:26 2010
New Revision: 52329

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52329
Log:
--refresh: accept optional directory argument

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/dh-make-perl
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=52329&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Mon Feb  8 21:59:26 2010
@@ -5,6 +5,7 @@
     examples and docs and checks for deprecated/obsolete entries in
     DhMakePerl::Config
   * when finding dist version, convert "v1.002003" as "1.2.3"
+  * --directory now accepts an optional directory argument
 
  -- Damyan Ivanov <dmn at debian.org>  Fri, 05 Feb 2010 09:05:25 +0200
 

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=52329&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Mon Feb  8 21:59:26 2010
@@ -20,7 +20,7 @@
 
 =item dh-make-perl [--make] {I<SOURCE_DIR> | --cpan I<MODULE>} I<options...>
 
-=item dh-make-perl --refresh {I<--only ...>}
+=item dh-make-perl --refresh {I<--only ...>} [directory]
 
 =item dh-make-perl --locate Foo::Bar
 
@@ -75,11 +75,12 @@
 Default command if no command is given. Creates debianisation from scratch.
 Fails with an error if F<debian/> directory already exists.
 
-=item --refresh
-
-To be run inside unpacked source package. Rebuilds F<debian/copyright>,
-F<debian/rules>, F<debian/compat> using the current templates. Before any
-changes are made to these files, a backup copy is created with a .bak suffix.
+=item --refresh [directory]
+
+For refreshing a package. C<directory> defaults to the current working
+directory. Rebuilds F<debian/copyright>, F<debian/rules>, F<debian/compat>
+using the current templates. Before any changes are made to these files, a
+backup copy is created with a .bak suffix.
 
 This is useful when F<debian/rules> was created using older templates and
 doesn't contain much customisations. As always, you're strongly encouraged to

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=52329&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Mon Feb  8 21:59:26 2010
@@ -193,8 +193,9 @@
     $desc = $self->cfg->desc || '';
 
     if ( $self->cfg->command eq 'refresh' ) {
-        print "Engaging refresh mode\n" if $self->cfg->verbose;
-        $self->main_dir('.');
+        $self->main_dir( $ARGV[0] || '.' );
+        print "Engaging refresh mode in " . $self->main_dir . "\n"
+            if $self->cfg->verbose;
 
         die $self->debian_file('rules.bak') . " already exists. Aborting!\n"
             if ( -e $self->debian_file('rules.bak') and 'rules' ~~ $self->cfg->only );