Use Die instead of die so that cleanup is performed on error

Signed-off-by: Guillem Jover <guillem@debian.org>

1 files changed, 1 insertions, 1 deletions

diff --git a/dpkg-repack b/dpkg-repack
index dd9a06f..e48fd74 100755
--- a/dpkg-repack
+++ b/dpkg-repack
@@ -147,7 +147,7 @@ sub Install_DEBIAN {
 	my @conffiles=@_;
 	
 	my @control_files;
-	open (Q, "dpkg-query --admindir=$rootdir/var/lib/dpkg --control-path $packagename 2>/dev/null |") || die "dpkg-query failed: $!";
+	open (Q, "dpkg-query --admindir=$rootdir/var/lib/dpkg --control-path $packagename 2>/dev/null |") || Die "dpkg-query failed: $!";
 	while (my $fn=<Q>) {
 		chomp $fn;
 		push @control_files, $fn;