r29490 - in /trunk/dh-make-perl: dh-make-perl lib/DhMakePerl.pm lib/DhMakePerl/Config.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Fri Jan 9 14:24:32 UTC 2009


Author: dmn
Date: Fri Jan  9 14:24:29 2009
New Revision: 29490

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29490
Log:
add --dump-config command

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

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=29490&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Fri Jan  9 14:24:29 2009
@@ -217,6 +217,11 @@
 
 =back
 
+=item B<--dump-config>
+
+Print the configuration to STDOUT. Useful for initial population of
+F<dh-make-perl.conf> file.
+
 =head1 DESCRIPTION
 
 B<dh-make-perl> will create the files required to build

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=29490&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Fri Jan  9 14:24:29 2009
@@ -130,6 +130,12 @@
             sources_file => $self->cfg->sources_list,
             verbose      => $self->cfg->verbose,
         });
+
+        return 0;
+    }
+
+    if ( $self->cfg->command eq 'dump-config' ) {
+        print $self->cfg->dump_config;
 
         return 0;
     }

Modified: trunk/dh-make-perl/lib/DhMakePerl/Config.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Config.pm?rev=29490&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Config.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Config.pm Fri Jan  9 14:24:29 2009
@@ -23,7 +23,7 @@
     'verbose!',        'version=s',
 );
 
-use constant commands => ( 'refresh|R', 'refresh-cache' );
+use constant commands => ( 'refresh|R', 'refresh-cache', 'dump-config' );
 
 __PACKAGE__->mk_accessors(
     do {




More information about the Pkg-perl-cvs-commits mailing list