summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-09-30 03:54:44 +0000
committerDaouda Lo <daouda@mandriva.com>2004-09-30 03:54:44 +0000
commit1608b68fe0bfc7d1260453ca26df4c5de06157bc (patch)
tree27770229a4ea1f4dedfe4ae61f5019b72da86e49
parent4186029e1d82e57ee1604f4b30f890edf7e76266 (diff)
downloadmgaonline-1608b68fe0bfc7d1260453ca26df4c5de06157bc.tar
mgaonline-1608b68fe0bfc7d1260453ca26df4c5de06157bc.tar.gz
mgaonline-1608b68fe0bfc7d1260453ca26df4c5de06157bc.tar.bz2
mgaonline-1608b68fe0bfc7d1260453ca26df4c5de06157bc.tar.xz
mgaonline-1608b68fe0bfc7d1260453ca26df4c5de06157bc.zip
- test for backward compatibility (release version)
-rw-r--r--mdkonline.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/mdkonline.pm b/mdkonline.pm
index a5869e59..fd2369ba 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -134,9 +134,10 @@ sub header { "
* $_[0]
********************************************************************************";
}
+my $releasefile = find { -f $_ } '/etc/mandrakelinux-release', '/etc/mandrake-release', '/etc/redhat-release';
output($file, map { chomp; "$_\n" }
header("rpm -qa"), join('', sort `rpm -qa`),
- header("mandrake version"), cat_('/etc/mandrakelinux-release'));
+ header("mandrake version"), cat_($releasefile));
system("/usr/bin/bzip2 -f $file");
open(my $F, $file . ".bz2") or die "Cannot open file : $!";
my ($chunk, $buffer);