summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-04-27 15:50:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-04-27 15:50:06 +0000
commit5842eb000d9f2e23be3c368f88754e3c4daa36ea (patch)
treef08e35d4dfff0872e736aa9ec4cb2c29cebbf50e /perl-install/common.pm
parentf68ea48ce882fe7acc3db2316683a6691b7b7a94 (diff)
downloaddrakx-backup-do-not-use-5842eb000d9f2e23be3c368f88754e3c4daa36ea.tar
drakx-backup-do-not-use-5842eb000d9f2e23be3c368f88754e3c4daa36ea.tar.gz
drakx-backup-do-not-use-5842eb000d9f2e23be3c368f88754e3c4daa36ea.tar.bz2
drakx-backup-do-not-use-5842eb000d9f2e23be3c368f88754e3c4daa36ea.tar.xz
drakx-backup-do-not-use-5842eb000d9f2e23be3c368f88754e3c4daa36ea.zip
fix mandrake_release() when called with a prefix
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index e51b1df93..15da3a2c5 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -250,7 +250,8 @@ sub release_file {
sub mandrake_release {
my ($o_dir) = @_;
- chomp_(cat_(release_file($o_dir)));
+ my $f = release_file($o_dir);
+ $f && chomp_(cat_("$o_dir$f"));
}
sub require_root_capability() {