r38885 - /scripts/cpan-unpackaged-deps.pl

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Mon Jun 29 00:01:04 2009
New Revision: 38885

URL: http://svn.debian.org/wsvn/?sc=1&rev=38885
Log:
tell the uesr if it's already packaged

Modified:
    scripts/cpan-unpackaged-deps.pl

Modified: scripts/cpan-unpackaged-deps.pl
URL: http://svn.debian.org/wsvn/scripts/cpan-unpackaged-deps.pl?rev=38885&op=diff
==============================================================================
--- scripts/cpan-unpackaged-deps.pl (original)
+++ scripts/cpan-unpackaged-deps.pl Mon Jun 29 00:01:04 2009
@@ -34,8 +34,12 @@
   $self->{module} = shift;
   my $force = shift;
   bless $self, $class;
-  unless($force) {
-    return if($self->packaged());
+  if($self->packaged()) {
+    if($force) {
+      warn($self->{module} . " is already packaged\n");
+    } else {
+      return;
+    }
   }
   $self->{path} = $modules{$self->{module}};
   return if(!$self->{path});