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

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

Author: ryan52-guest
Date: Sun Jun 28 23:58:32 2009
New Revision: 38884

URL: http://svn.debian.org/wsvn/?sc=1&rev=38884
Log:
fix for checking new versions of already packaged things

Modified:
    scripts/cpan-unpackaged-deps.pl

Modified: scripts/cpan-unpackaged-deps.pl
URL: http://svn.debian.org/wsvn/scripts/cpan-unpackaged-deps.pl?rev=38884&op=diff
==============================================================================
--- scripts/cpan-unpackaged-deps.pl (original)
+++ scripts/cpan-unpackaged-deps.pl Sun Jun 28 23:58:32 2009
@@ -1,4 +1,4 @@
-#!/bin/perl
+#!/usr/bin/perl
 
 package CPAN::Dist;
 
@@ -32,8 +32,11 @@
   my $class = shift;
   my $self = {};
   $self->{module} = shift;
+  my $force = shift;
   bless $self, $class;
-  return if($self->packaged());
+  unless($force) {
+    return if($self->packaged());
+  }
   $self->{path} = $modules{$self->{module}};
   return if(!$self->{path});
   $self->{path} =~ /^.*\/(.*)-.*.(?:tar.gz|tgz)$/;
@@ -50,6 +53,7 @@
 
 sub initialize {
   my $self = shift;
+  print "processing: " . $self->{dist}  . "\n";
   $self->{url} = "http://cpan.hexten.net/authors/id/" . $self->{path};
   $self->{url} =~ s/(?:\.tar\.gz|tgz)$/.meta/;
   my $f = `mktemp`;
@@ -94,7 +98,11 @@
 }
 
 CPAN::Dist::init();
-my $dist = CPAN::Dist->new(shift);
+my $dist = CPAN::Dist->new(shift, 1);
+if(!$dist) {
+  print "ERROR\n";
+  exit(1);
+}
 %dists = CPAN::Dist::dists();
 delete $dists{$dist->{dist}};
 my @a = ($dist, values %dists);