Packages::CommonCode::activate(): Die on error

diff --git a/lib/Packages/CommonCode.pm b/lib/Packages/CommonCode.pm
index b33f7b472f58c571338d1c4adf3b9c70d98d69e4..296878549671f13d478e2272882c35dbd6c46454 100644 (file)
--- a/lib/Packages/CommonCode.pm
+++ b/lib/Packages/CommonCode.pm
@@ -49,7 +49,8 @@ sub parse_control_par {
 sub activate {
     my ($file) = @_;
 
-    rename("${file}.new", $file);
+    rename("${file}.new", $file)
+       or die "rename ${file}.new $file failed: $!\n";
 }
 
 sub activate_dir {