Re: CPANPLUS working again on VMS Re: [PATCH@32279] Upgrade File::Fetch to 0.13_04...

[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / Internals.pm

diff --git a/lib/CPANPLUS/Internals.pm b/lib/CPANPLUS/Internals.pm
index 21465c0..68d71aa 100644 (file)
--- a/lib/CPANPLUS/Internals.pm
+++ b/lib/CPANPLUS/Internals.pm
@@ -40,7 +40,7 @@ use vars qw[@ISA $VERSION];
             CPANPLUS::Internals::Report
         ];
 
-$VERSION = "0.79_03";
+$VERSION = "0.83_09";
 
 =pod
 
@@ -126,6 +126,7 @@ Returns the object on success, or dies on failure.
         filter_prereqs          => sub { return $_[1] },
                                         # continue if 'make test' fails?
         proceed_on_test_failure => sub { return 0 },
+        munge_dist_metafile     => sub { return $_[1] },
     };
     
     my $status = Object::Accessor->new;
@@ -159,7 +160,7 @@ Returns the object on success, or dies on failure.
         if( my $id = $class->_last_id ) {
             # make it a singleton.
             warn loc(q[%1 currently only supports one %2 object per ] .
-                     q[running program], 'CPANPLUS', $class);
+                     qq[running program\n], 'CPANPLUS', $class);
 
             return $class->_retrieve_id( $id );
         }
@@ -326,6 +327,13 @@ Is called when 'make test' or 'Build test' fails. Should return
 a boolean indicating whether the install should continue even if
 the test failed.
 
+=item munge_dist_metafile
+
+Is called when the C<CPANPLUS::Dist::*> metafile is created, like
+C<control> for C<CPANPLUS::Dist::Deb>, giving the user a chance to
+programatically alter it. Should return the (munged) text to be
+written to the metafile.
+
 =back
 
 =cut