if ($step ne "configure") {
$ret &&= -e $this->get_sourcepath("Build");
}
- return $ret;
+ return $ret ? 1 : 0;
}
sub do_perl {
my $this=shift;
- $ENV{MODULEBUILDRC} = "/dev/null";
$this->doit_in_sourcedir("perl", @_);
}
sub clean {
my $this=shift;
- $this->do_perl("Build", "--allow_mb_mismatch", 1, "distclean", @_);
+ if (-e $this->get_sourcepath("Build")) {
+ $this->do_perl("Build", "--allow_mb_mismatch", 1, "distclean", @_);
+ }
}
-1;
+1