| Subject: | Patch for Pardus |
Hi,
This module needs a patch (see attachment) for Pardus distro:
<http://www.pardus.org.tr/eng/index.html>.
diff command:
diff -uNa Distribution.pm.old Distribution.pm > ld.patch
Also, t/Linux-Distribution.t seems to need a fix. I think that you
should omit the second test, since it will fail on any unsupported
platform. I've converted the second test into diag() instead (see
attachment).
| Subject: | Linux-Distribution.t |
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Linux-Distribution.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 1;
BEGIN { use_ok('Linux::Distribution') };
if( defined Linux::Distribution::distribution_name() ) {
diag('It seems that we are running on '.Linux::Distribution::distribution_name.' version '.(Linux::Distribution::distribution_version || 'unknown'))
}
else {
diag("The distribution you're using is unknown!");
}
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
| Subject: | ld.patch |
--- Distribution.pm.old 2006-02-16 09:35:02.000000000 +0200
+++ Distribution.pm 2007-05-31 21:48:55.000000000 +0300
@@ -38,7 +38,8 @@
'yoper-release' => 'yoper',
'arch-release' => 'arch',
'libranet_version' => 'libranet',
- 'va-release' => 'va-linux'
+ 'va-release' => 'va-linux',
+ 'pardus-release' => 'pardus',
);
our %version_match = (
@@ -48,7 +49,8 @@
'fedora' => 'Fedora Core release (\d+) \(',
'redflag' => 'Red Flag (?:Desktop|Linux) (?:release |\()(.*?)(?: \(.+)?\)',
'redhat' => 'Red Hat Linux release (.*) \(',
- 'slackware' => '^Slackware (.+)$'
+ 'slackware' => '^Slackware (.+)$',
+ 'pardus' => '^Pardus (.+)$',
);