} else {
print " - HTTP $stat\n";
}
+}
- # write database of installed versions
- open SRC, '>.modulemanager' or die "can't write installed versions to .modulemanager, won't be able to track upgrades properly: $!";
- foreach my $key (keys %mod_versions)
- {
- print SRC "$key $mod_versions{$key}\n";
- }
- close SRC;
+# write database of installed versions
+open SRC, '>.modulemanager' or die "can't write installed versions to .modulemanager, won't be able to track upgrades properly: $!";
+foreach my $key (keys %mod_versions)
+{
+ print SRC "$key $mod_versions{$key}\n";
}
+close SRC;
print "Done!\n";