fix #52096 - improved error msg

jquelin · Nov 27, 2009 · a507017 · a507017
1 parent d26c51e
commit a507017
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/CPANPLUS/Dist/Mdv.pm b/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'" );