help emacs' cperl-mode

1 files changed, 2 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index b1e9a0e7..8dc6ef9b 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -1793,7 +1793,8 @@ sub get_installed_pkgs() {
 		description => rpm_description($pkg->description),
 	    } if !($installed_pkgs{$fullname} && $installed_pkgs{$fullname}{description});
 	    if ($base{$fullname}) {
-		$installed_pkgs{$fullname}{base} = \${$base{$fullname}};
+		my $name = $base{$fullname};
+		$installed_pkgs{$fullname}{base} = \$name;
 		if (${$base{$fullname}} == 1) { $pkg->set_flag_base(1) }
 	    }
 	    $pkg->pack_header;