Permalink
Browse files

Merge in brian's changes. Tests pass but there's cruft to be cleaned up.

  • Loading branch information...
1 parent 13f7930 commit ef18c678e3aad495dd76c1dc8712c160d50eaf2d @AndyA AndyA committed May 15, 2009
View
@@ -17,7 +17,7 @@ sub print_version {
}
sub chkactions {
- foreach my $action ( qw(add update mirror inject) ) {
+ for my $action ( qw(add update mirror inject) ) {
return 1 if ( $options{actionname} eq $action );
}
return 0;
@@ -78,7 +78,7 @@ sub add {
};
$mcpi->readlist;
- foreach my $item ( @modules_to_add ) {
+ for my $item ( @modules_to_add ) {
$mcpi->add(
module => $item->{module},
authorid => $options{authorid},
@@ -138,7 +138,7 @@ sub _load_meta {
my $meta_filename;
FILE_LIST:
- foreach my $name ( $tar->list_files() ) {
+ for my $name ( $tar->list_files() ) {
if ( $name =~ /META\.yml$/ ) {
$meta_filename = $name;
last FILE_LIST;
Oops, something went wrong.

0 comments on commit ef18c67

Please sign in to comment.