From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Sat, 9 Feb 2008 19:08:33 +0000 (+0100)
Subject: Packages::CommonCode::activate(): Die on error
X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=commitdiff_plain;h=34102f4b67eecf1d2b047f4eb54526dd7764f9e4

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

diff --git a/lib/Packages/CommonCode.pm b/lib/Packages/CommonCode.pm
index b33f7b4..2968785 100644
--- 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 {