From 1d2401044c5616361da5b8c9394b5e78f3874e8a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 13 Jun 2007 12:53:44 +0000 Subject: (writeconf) fix crash when trying to save non set variables (#31367) --- rpmdrake.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpmdrake.pm b/rpmdrake.pm index 1ca9bae4..338b11fd 100644 --- a/rpmdrake.pm +++ b/rpmdrake.pm @@ -174,7 +174,7 @@ sub readconf() { sub writeconf() { unlink $configfile; - output $configfile, map { "$_ " . join(' ', @${$config{$_}{var}}) . "\n" } keys %config; + output $configfile, map { "$_ " . (ref ${$config{$_}{var}} ? join(' ', @${$config{$_}{var}}) : ()) . "\n" } keys %config; } sub getbanner() { -- cgit v1.2.1