Permalink
Browse files

fix #52096 - improved error msg

  • Loading branch information...
1 parent d26c51e commit a50701768d487ca5862de3f133c19abab70453c3 @jquelin committed Nov 27, 2009
Showing with 4 additions and 3 deletions.
  1. +4 −3 lib/CPANPLUS/Dist/Mdv.pm
@@ -24,7 +24,6 @@ use Text::Wrap;
Readonly my $RPMDIR => do { chomp(my $d=qx[ rpm --eval %_topdir ]); $d; };
-
# -- class methods
=method my $bool = CPANPLUS::Dist::Mdv->format_available;
@@ -49,11 +48,13 @@ sub format_available {
my $flag;
# check rpm tree structure
+ my @subdirs = qw{ BUILD RPMS SOURCES SPECS SRPMS tmp };
if ( ! -d $RPMDIR ) {
- error( 'need to create rpm tree structure in your home' );
+ error( 'need to create rpm tree structure in your home:' );
+ error($_) for map { "\t$RPMDIR/$_" } @subdirs;
return;
}
- foreach my $subdir ( qw[ BUILD RPMS SOURCES SPECS SRPMS tmp ] ) {
+ foreach my $subdir ( @subdirs ) {
my $dir = "$RPMDIR/$subdir";
next if -d $dir;
error( "missing directory '$dir'" );

0 comments on commit a507017

Please sign in to comment.