diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-09-30 03:54:44 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-09-30 03:54:44 +0000 |
| commit | 1608b68fe0bfc7d1260453ca26df4c5de06157bc (patch) | |
| tree | 27770229a4ea1f4dedfe4ae61f5019b72da86e49 | |
| parent | 4186029e1d82e57ee1604f4b30f890edf7e76266 (diff) | |
| download | mgaonline-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.pm | 3 |
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); |