Packages::CommonCode::activate(): Die on error
authorFrank Lichtenheld <frank@lichtenheld.de>
Sat, 9 Feb 2008 19:08:33 +0000 (20:08 +0100)
committerFrank Lichtenheld <frank@lichtenheld.de>
Sat, 9 Feb 2008 19:08:33 +0000 (20:08 +0100)
lib/Packages/CommonCode.pm

index b33f7b472f58c571338d1c4adf3b9c70d98d69e4..296878549671f13d478e2272882c35dbd6c46454 100644 (file)
@@ -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 {