Author: bernhard
Date: Thu Oct 27 12:34:59 2005
New Revision: 9598
Modified:
trunk/config/init/manifest.pl
Log:
Perl 5.8.7 unwarranted warned about a '0' in a conditional,
make it shut up by rearranging the line in question.
Add some whitspace.
Modified: trunk/config/init/manifest.pl
==============================================================================
--- trunk/config/init/manifest.pl (original)
+++ trunk/config/init/manifest.pl Thu Oct 27 12:34:59 2005
@@ -18,16 +18,21 @@ use vars qw($description @args);
use Parrot::Configure::Step;
use ExtUtils::Manifest qw(manicheck);
-$description="Checking MANIFEST...";
+$description = "Checking MANIFEST...";
[EMAIL PROTECTED](nomanicheck);
[EMAIL PROTECTED] = qw(nomanicheck);
sub runstep {
- $Configure::Step::result = 'skipped' and return if $_[0];
+ my ( $nomanicheck ) = @_;
- my(@missing)=manicheck();
+ if ( $nomanicheck ) {
+ $Configure::Step::result = 'skipped';
+ return;
+ }
- if(@missing) {
+ my @missing = ExtUtils::Manifest::manicheck();
+
+ if (@missing) {
print <<"END";
Ack, some files were missing! I can't continue running
