[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.512,1.513

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18178/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Add the prereq_report action

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.512
retrieving revision 1.513
diff -u -d -r1.512 -r1.513
--- Base.pm	2 Nov 2005 01:36:01 -0000	1.512
+++ Base.pm	13 Nov 2005 03:17:44 -0000	1.513
@@ -1686,6 +1686,51 @@
   return join '', @docs;
 }
 
+sub ACTION_prereq_report {
+    my $self = shift;
+    my @types = @{ $self->prereq_action_types };
+    my $info = { map { $_ => $self->$_() } @types };
+
+    foreach my $type (@types) {
+        my $prereqs = $info->{$type};
+        next unless %$prereqs;
+        $self->log_info("\n$type:\n");
+        my $mod_len = 2;
+        my $ver_len = 4;
+        my %mods;
+        while ( my ($modname, $spec) = each %$prereqs ) {
+            my $len  = length $modname;
+            $mod_len = $len if $len > $mod_len;
+            $spec    ||= '0';
+            $len     = length $spec;
+            $ver_len = $len if $len > $ver_len;
+            my $data = [ $modname => $spec ];
+
+            my $info = Module::Build::ModuleInfo->new_from_module($modname);
+            push @$data, $info ? $info->version : '[NONE]';
+            $mods{lc $modname} = $data;
+        }
+
+        my $space  = q{ } x ($mod_len - 3);
+        my $vspace = q{ } x ($ver_len - 3);
+        my $sline  = q{-} x ($mod_len - 3);
+        my $vline  = q{-} x ($ver_len - 3);
+        $self->log_info(
+            "    Module $space  Need $vspace  Have\n",
+            "    ------$sline+------$vline-+----------\n",
+        );
+
+        for my $k (sort keys %mods) {
+            my $data = $mods{$k};
+            my $space  = q{ } x ($mod_len - length $k);
+            my $vspace = q{ } x ($ver_len - length $data->[1]);
+            $self->log_info(
+                "    $data->[0] $space     $data->[1]  $vspace   $data->[2]\n"
+            );
+        }
+    }
+}
+
 sub ACTION_help {
   my ($self) = @_;
   my $actions = $self->known_actions;
@@ -3195,7 +3240,8 @@
   my @ext = split /::/, $self->module_name;
   $map{write} = File::Spec->catdir($archdir, 'auto', @ext, '.packlist');
   
-  if (length(my $destdir = $self->{properties}{destdir} || '')) {
+  # Handle destdir
+  if (length(my $destdir = $self->destdir || '')) {
     foreach (keys %map) {
       # Need to remove volume from $map{$_} using splitpath, or else
       # we'll create something crazy like C:\Foo\Bar\E:\Baz\Quux