Bug#472101: Prohibit arguments

[Matt Kraai]

Package: libmodule-starter-perl
Version: 1.470-1
Severity: wishlist
Tags: patch

I ran

 module-starter --author Matt Kraai --email kraai at ftbfs.org --module Foo

and was surprised to see that the author was just Matt.  I wish
module-starter would whine when it was given an argument so that this
error would be detected earlier.  The attached patch makes it do so.

-- 
Matt
-------------- next part --------------
diff -ru libmodule-starter-perl-1.470~/lib/Module/Starter/App.pm libmodule-starter-perl-1.470/lib/Module/Starter/App.pm
--- libmodule-starter-perl-1.470~/lib/Module/Starter/App.pm	2008-03-21 14:27:41.000000000 -0700
+++ libmodule-starter-perl-1.470/lib/Module/Starter/App.pm	2008-03-21 14:27:51.000000000 -0700
@@ -86,6 +86,8 @@
       help         => sub { pod2usage(1); },
   ) or pod2usage(2);
 
+  croak "Must not specify any arguments\n" if @ARGV;
+
   $config{class} ||= 'Module::Starter';
 
   $config{builder} = ['ExtUtils::MakeMaker'] unless @{$config{builder}};