[liblinux-distribution-perl] 05/34: import Linux::Distribution 0.11 from CPAN

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to annotated tag v0.22
in repository liblinux-distribution-perl.

commit b69424b7c990147639db043742ae276b71236177
Author: Re Alberto <kerberus at accidia.net>
Date:   Fri Sep 2 01:40:40 2005 -0800

    import Linux::Distribution 0.11 from CPAN
    
    git-cpan-module: Linux::Distribution
    git-cpan-version: 0.11
---
 META.yml                  | 4 ++--
 Makefile.PL               | 2 +-
 README                    | 4 ++--
 lib/Linux/Distribution.pm | 6 +++---
 t/Linux-Distribution.t    | 7 ++++++-
 5 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/META.yml b/META.yml
index 7be72f6..1302898 100644
--- a/META.yml
+++ b/META.yml
@@ -1,10 +1,10 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Linux-Distribution
-version:      0.10
+version:      0.11
 version_from: lib/Linux/Distribution.pm
 installdirs:  site
 requires:
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30
diff --git a/Makefile.PL b/Makefile.PL
index c7b453f..059cbf3 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -8,5 +8,5 @@ WriteMakefile(
     PREREQ_PM         => {}, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
       (ABSTRACT_FROM  => 'lib/Linux/Distribution.pm', # retrieve abstract from module
-       AUTHOR         => 'Re Alberto <kerberus at accidia.net>') : ()),
+       AUTHOR         => 'Alberto Re <kerberus at accidia.net>') : ()),
 );
diff --git a/README b/README
index 91cc62c..9eaa1cd 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Linux-Distribution version 0.10
+Linux-Distribution version 0.11
 ===============================
 
 This is a module that guess on what kind of linux distribution we are running looking for distro's specific release file into /etc.
@@ -19,7 +19,7 @@ This module has no dependencies.
 
 COPYRIGHT AND LICENCE
 
-Copyright (C) 2005 by Re Alberto <kerberus at accidia.net>
+Copyright (C) 2005 by Alberto Re <kerberus at accidia.net>
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.8.5 or,
diff --git a/lib/Linux/Distribution.pm b/lib/Linux/Distribution.pm
index 1def074..8821f38 100644
--- a/lib/Linux/Distribution.pm
+++ b/lib/Linux/Distribution.pm
@@ -10,7 +10,7 @@ our @ISA = qw(Exporter);
 
 our @EXPORT_OK = qw( distribution_name );
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 
 our %release_files = (
     'gentoo-release'        => 'gentoo',
@@ -46,7 +46,7 @@ if ($^O ne 'linux') {
 
 sub distribution_name {
     foreach (keys %release_files) {
-        return $release_files{$_} if -f "/etc/$_"
+        return $release_files{$_} if -f "/etc/$_" && !-l "/etc/$_"
     }
     undef 
 }
@@ -85,7 +85,7 @@ Add the capability of recognize the version of the distribution.
 
 =head1 AUTHOR
 
-Re Alberto, E<lt>kerberus at accidia.netE<gt>
+Alberto Re, E<lt>kerberus at accidia.netE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
diff --git a/t/Linux-Distribution.t b/t/Linux-Distribution.t
index 264ee2a..0cbf4de 100644
--- a/t/Linux-Distribution.t
+++ b/t/Linux-Distribution.t
@@ -5,9 +5,14 @@
 
 # change 'tests => 1' to 'tests => last_test_to_print';
 
-use Test::More tests => 1;
+use Test::More tests => 2;
 BEGIN { use_ok('Linux::Distribution') };
 
+if(isnt(Linux::Distribution::distribution_name(), undef, "Checking your distro...")) {
+    diag("It seems that we are running on " . Linux::Distribution::distribution_name)
+}
+
+
 #########################
 
 # Insert your test code below, the Test::More module is use()ed here so read

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/liblinux-distribution-perl.git