Permalink
Browse files

no need to check rpmdir, it will be checked for subdirs

  • Loading branch information...
1 parent 4d5d7f6 commit 63e6e5e03c60e635727ccf9d7480955a602ac2e4 @jquelin committed Nov 27, 2009
Showing with 1 addition and 7 deletions.
  1. +1 −7 lib/CPANPLUS/Dist/Mdv.pm
View
@@ -48,13 +48,7 @@ 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($_) for map { "\t$RPMDIR/$_" } @subdirs;
- return;
- }
- foreach my $subdir ( @subdirs ) {
+ foreach my $subdir ( qw{ BUILD RPMS SOURCES SPECS SRPMS tmp } ) {
my $dir = "$RPMDIR/$subdir";
next if -d $dir;
error( "missing directory '$dir'" );

0 comments on commit 63e6e5e

Please sign in to comment.