[svn:Module-Build] r10226 - Module-Build/trunk/t/lib

[ericwilhelm]

Author: ericwilhelm
Date: Sun Nov 11 13:10:18 2007
New Revision: 10226

Modified:
   Module-Build/trunk/t/lib/DistGen.pm

Log:
t/lib/DistGen.pm - catch the temptation to call remove($file)


Modified: Module-Build/trunk/t/lib/DistGen.pm
==============================================================================
--- Module-Build/trunk/t/lib/DistGen.pm (original)
+++ Module-Build/trunk/t/lib/DistGen.pm Sun Nov 11 13:10:18 2007
@@ -8,6 +8,8 @@
 $VERBOSE = 0;
 
 
+use Carp;
+
 use Cwd ();
 use File::Basename ();
 use File::Find ();
@@ -358,6 +360,7 @@
 
 sub remove {
   my $self = shift;
+  croak("invalid usage -- remove()") if(@_);
   File::Path::rmtree( File::Spec->canonpath($self->dirname) );
 }