Commit b009d1d1-4b9d-41a4-a52d-59d42f2b3bb0/upstream - liblinux-distribution-perl

+28

-28

Build.PL less more

0		use strict;
1		use Module::Build;
2		#created by eumm-migrate.pl
3
4		unless (lc $^O eq "linux" \|\| -d '.git') {
5		die "OS unsupported\n";
6		}
7
8		my $build = Module::Build->new(
9		'auto_configure_requires' => 0,
10		'dist_author' => 'Alexandr Ciornii <alexchorny@gmail.com>',
11		'module_name' => 'Linux::Distribution',
12		'meta_merge' => {
13		'resources' => {
14		'repository' => 'https://github.com/chorny/Linux-Distribution'
15		}
16		},
17		'requires' => {
18		'perl' => '5.006',
19		},
20		'build_requires' => {
21		'Test::More' => 0,
22		},
23		'license' => 'perl',
24		'dist_version_from' => 'lib/Linux/Distribution.pm'
25		);
26
27		$build->create_build_script();
	0	use strict;
	1	use Module::Build;
	2	#created by eumm-migrate.pl
	3
	4	unless (lc $^O eq "linux" \|\| -d '.git') {
	5	die "OS unsupported\n";
	6	}
	7
	8	my $build = Module::Build->new(
	9	'auto_configure_requires' => 0,
	10	'dist_author' => 'Alexandr Ciornii <alexchorny@gmail.com>',
	11	'module_name' => 'Linux::Distribution',
	12	'meta_merge' => {
	13	'resources' => {
	14	'repository' => 'https://github.com/chorny/Linux-Distribution'
	15	}
	16	},
	17	'requires' => {
	18	'perl' => '5.006',
	19	},
	20	'build_requires' => {
	21	'Test::More' => 0,
	22	},
	23	'license' => 'perl',
	24	'dist_version_from' => 'lib/Linux/Distribution.pm'
	25	);
	26
	27	$build->create_build_script();

+51

-51

MANIFEST less more

0		Build.PL
1		Changes
2		hacking
3		lib/Linux/Distribution.pm
4		Makefile.PL
5		MANIFEST This list of files
6		META.json
7		META.yml
8		README
9		t/amazon.t
10		t/amazon/files
11		t/amazon/system-release
12		t/centos.t
13		t/centos/files
14		t/centos/redhat-release
15		t/centos6.t
16		t/centos6/centos-release
17		t/centos6/files
18		t/centos7.t
19		t/centos7/centos-release
20		t/centos7/files
21		t/cloudlinux.t
22		t/CloudLinux/CloudLinux-release
23		t/CloudLinux/files
24		t/CloudLinux/lsb_release-output
25		t/CloudLinux/redhat-release
26		t/debian7.t
27		t/debian7/debian_version
28		t/debian7/files
29		t/fedora15.t
30		t/fedora15/fedora-release
31		t/fedora15/files
32		t/fedora15/redhat-release
33		t/Linux-Distribution.t
34		t/oel6.t
35		t/oel6/enterprise-release
36		t/oel6/files
37		t/oel6/redhat-release
38		t/rhel6.t
39		t/rhel6/files
40		t/rhel6/redhat-release
41		t/rhel7.t
42		t/rhel7/files
43		t/rhel7/redhat-release
44		t/scientific6.t
45		t/scientific6/files
46		t/scientific6/redhat-release
47		t/ubuntu1404.t
48		t/ubuntu1404/debian_version
49		t/ubuntu1404/files
50		t/ubuntu1404/lsb-release
	0	Build.PL
	1	Changes
	2	hacking
	3	lib/Linux/Distribution.pm
	4	Makefile.PL
	5	MANIFEST This list of files
	6	META.json
	7	META.yml
	8	README
	9	t/amazon.t
	10	t/amazon/files
	11	t/amazon/system-release
	12	t/centos.t
	13	t/centos/files
	14	t/centos/redhat-release
	15	t/centos6.t
	16	t/centos6/centos-release
	17	t/centos6/files
	18	t/centos7.t
	19	t/centos7/centos-release
	20	t/centos7/files
	21	t/cloudlinux.t
	22	t/CloudLinux/CloudLinux-release
	23	t/CloudLinux/files
	24	t/CloudLinux/lsb_release-output
	25	t/CloudLinux/redhat-release
	26	t/debian7.t
	27	t/debian7/debian_version
	28	t/debian7/files
	29	t/fedora15.t
	30	t/fedora15/fedora-release
	31	t/fedora15/files
	32	t/fedora15/redhat-release
	33	t/Linux-Distribution.t
	34	t/oel6.t
	35	t/oel6/enterprise-release
	36	t/oel6/files
	37	t/oel6/redhat-release
	38	t/rhel6.t
	39	t/rhel6/files
	40	t/rhel6/redhat-release
	41	t/rhel7.t
	42	t/rhel7/files
	43	t/rhel7/redhat-release
	44	t/scientific6.t
	45	t/scientific6/files
	46	t/scientific6/redhat-release
	47	t/ubuntu1404.t
	48	t/ubuntu1404/debian_version
	49	t/ubuntu1404/files
	50	t/ubuntu1404/lsb-release

+45

-44

META.json less more

0		{
1		"abstract" : "Perl extension to detect on which Linux distribution we are running.",
2		"author" : [
3		"Alexandr Ciornii <alexchorny@gmail.com>"
4		],
5		"dynamic_config" : 1,
6		"generated_by" : "Module::Build version 0.4211",
7		"license" : [
8		"perl_5"
9		],
10		"meta-spec" : {
11		"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
12		"version" : "2"
13		},
14		"name" : "Linux-Distribution",
15		"prereqs" : {
16		"build" : {
17		"requires" : {
18		"Test::More" : "0"
19		}
20		},
21		"runtime" : {
22		"requires" : {
23		"perl" : "5.006"
24		}
25		}
26		},
27		"provides" : {
28		"Linux::Distribution" : {
29		"file" : "lib/Linux/Distribution.pm",
30		"version" : "0.23"
31		}
32		},
33		"release_status" : "stable",
34		"resources" : {
35		"license" : [
36		"http://dev.perl.org/licenses/"
37		],
38		"repository" : {
39		"url" : "https://github.com/chorny/Linux-Distribution"
40		}
41		},
42		"version" : "0.23"
43		}
	0	{
	1	"abstract" : "Perl extension to detect on which Linux distribution we are running.",
	2	"author" : [
	3	"Alexandr Ciornii <alexchorny@gmail.com>"
	4	],
	5	"dynamic_config" : 1,
	6	"generated_by" : "Module::Build version 0.4231",
	7	"license" : [
	8	"perl_5"
	9	],
	10	"meta-spec" : {
	11	"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
	12	"version" : 2
	13	},
	14	"name" : "Linux-Distribution",
	15	"prereqs" : {
	16	"build" : {
	17	"requires" : {
	18	"Test::More" : "0"
	19	}
	20	},
	21	"runtime" : {
	22	"requires" : {
	23	"perl" : "5.006"
	24	}
	25	}
	26	},
	27	"provides" : {
	28	"Linux::Distribution" : {
	29	"file" : "lib/Linux/Distribution.pm",
	30	"version" : "0.23"
	31	}
	32	},
	33	"release_status" : "stable",
	34	"resources" : {
	35	"license" : [
	36	"http://dev.perl.org/licenses/"
	37	],
	38	"repository" : {
	39	"url" : "https://github.com/chorny/Linux-Distribution"
	40	}
	41	},
	42	"version" : "0.23",
	43	"x_serialization_backend" : "JSON::PP version 4.04"
	44	}

+24

-23

META.yml less more

0		---
1		abstract: Perl extension to detect on which Linux distribution we are running.
2		author:
3		- 'Alexandr Ciornii <alexchorny@gmail.com>'
4		build_requires:
5		Test::More: 0
6		dynamic_config: 1
7		generated_by: 'Module::Build version 0.4211, CPAN::Meta::Converter version 2.143240'
8		license: perl
9		meta-spec:
10		url: http://module-build.sourceforge.net/META-spec-v1.4.html
11		version: 1.4
12		name: Linux-Distribution
13		provides:
14		Linux::Distribution:
15		file: lib/Linux/Distribution.pm
16		version: 0.23
17		requires:
18		perl: 5.006
19		resources:
20		license: http://dev.perl.org/licenses/
21		repository: https://github.com/chorny/Linux-Distribution
22		version: 0.23
	0	---
	1	abstract: 'Perl extension to detect on which Linux distribution we are running.'
	2	author:
	3	- 'Alexandr Ciornii <alexchorny@gmail.com>'
	4	build_requires:
	5	Test::More: '0'
	6	dynamic_config: 1
	7	generated_by: 'Module::Build version 0.4231, CPAN::Meta::Converter version 2.150010'
	8	license: perl
	9	meta-spec:
	10	url: http://module-build.sourceforge.net/META-spec-v1.4.html
	11	version: '1.4'
	12	name: Linux-Distribution
	13	provides:
	14	Linux::Distribution:
	15	file: lib/Linux/Distribution.pm
	16	version: '0.23'
	17	requires:
	18	perl: '5.006'
	19	resources:
	20	license: http://dev.perl.org/licenses/
	21	repository: https://github.com/chorny/Linux-Distribution
	22	version: '0.23'
	23	x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

+17

-17

Makefile.PL less more

0		use 5.006000;
1		use ExtUtils::MakeMaker;
2		unless (lc $^O eq "linux") {
3		die "OS unsupported\n";
4		}
5		WriteMakefile(
6		NAME => 'Linux::Distribution',
7		VERSION_FROM => 'lib/Linux/Distribution.pm', # finds $VERSION
8		PREREQ_PM => {
9		'Test::More' => 0,
10		},
11		ABSTRACT_FROM => 'lib/Linux/Distribution.pm', # retrieve abstract from module
12		AUTHOR => 'Alexandr Ciornii <alexchorny@gmail.com>', #Alberto Re <alberto@accidia.net>
13		($ExtUtils::MakeMaker::VERSION ge '6.48'?
14		('LICENSE' => 'perl', 'MIN_PERL_VERSION' => 5.006,) : ()),
15		PL_FILES => {},
16		);
	0	use 5.006000;
	1	use ExtUtils::MakeMaker;
	2	unless (lc $^O eq "linux") {
	3	die "OS unsupported\n";
	4	}
	5	WriteMakefile(
	6	NAME => 'Linux::Distribution',
	7	VERSION_FROM => 'lib/Linux/Distribution.pm', # finds $VERSION
	8	PREREQ_PM => {
	9	'Test::More' => 0,
	10	},
	11	ABSTRACT_FROM => 'lib/Linux/Distribution.pm', # retrieve abstract from module
	12	AUTHOR => 'Alexandr Ciornii <alexchorny@gmail.com>', #Alberto Re <alberto@accidia.net>
	13	($ExtUtils::MakeMaker::VERSION ge '6.48'?
	14	('LICENSE' => 'perl', 'MIN_PERL_VERSION' => 5.006,) : ()),
	15	PL_FILES => {},
	16	);

+9

-8

hacking less more

0		To add new Linux distribution, please send following files:
1		/etc/lsb-release
2		/etc/*-release
3		/etc/*_version
4
5		and output of:
6		uname -a
7		lsb_release -a
	0	To add new Linux distribution, please send following files:
	1	/etc/lsb-release
	2	/etc/os-release (or /usr/lib/os-release)
	3	/etc/*-release
	4	/etc/*_version
	5
	6	and output of:
	7	uname -a
	8	lsb_release -a

+1

-1

lib/Linux/Distribution.pm less more

52	52	'suse' => 'VERSION = (.*)',
53	53	'fedora' => 'Fedora(?: Core)? release (\d+) \(',
54	54	'redflag' => 'Red Flag (?:Desktop\|Linux) (?:release \|$)(.*?)(?: \(.+)?$',
55		'redhat' => 'Red Hat(?: Enterprise)? Linux(?: Server)? release (.*) \(',
	55	'redhat' => 'Red Hat(?: Enterprise)? Linux(?: Server\| Workstation)? release (.*) \(',
56	56	'oracle enterprise linux' => 'Enterprise Linux Server release (.+) \(',
57	57	'slackware' => '^Slackware (.+)$',
58	58	'pardus' => '^Pardus (.+)$',

+29

-29

t/Linux-Distribution.t less more

0		# Before `make install' is performed this script should be runnable with
1		# `make test'. After `make install' it should work as `perl Linux-Distribution.t'
2
3		#########################
4
5		# change 'tests => 1' to 'tests => last_test_to_print';
6
7		use strict;
8		use Test::More tests => 2;
9		BEGIN { use_ok('Linux::Distribution') };
10
11		if(isnt(Linux::Distribution::distribution_name(), undef, 'Checking your distro...')) {
12		diag('It seems that we are running on '.Linux::Distribution::distribution_name.' version '.(Linux::Distribution::distribution_version \|\| 'unknown'))
13		} else {
14		diag ('Please report your Linux dist to dist maintainer');
15		if (-e '/etc/lsb-release') {
16		diag ('lsb-release exists') ;
17		open my $fh,'<','/etc/lsb-release';
18		my $content=join('',<$fh>);
19		diag($content);
20		}
21		}
22
23
24		#########################
25
26		# Insert your test code below, the Test::More module is use()ed here so read
27		# its man page ( perldoc Test::More ) for help writing this test script.
28
	0	# Before `make install' is performed this script should be runnable with
	1	# `make test'. After `make install' it should work as `perl Linux-Distribution.t'
	2
	3	#########################
	4
	5	# change 'tests => 1' to 'tests => last_test_to_print';
	6
	7	use strict;
	8	use Test::More tests => 2;
	9	BEGIN { use_ok('Linux::Distribution') };
	10
	11	if(isnt(Linux::Distribution::distribution_name(), undef, 'Checking your distro...')) {
	12	diag('It seems that we are running on '.Linux::Distribution::distribution_name.' version '.(Linux::Distribution::distribution_version \|\| 'unknown'))
	13	} else {
	14	diag ('Please report your Linux dist to dist maintainer');
	15	if (-e '/etc/lsb-release') {
	16	diag ('lsb-release exists') ;
	17	open my $fh,'<','/etc/lsb-release';
	18	my $content=join('',<$fh>);
	19	diag($content);
	20	}
	21	}
	22
	23
	24	#########################
	25
	26	# Insert your test code below, the Test::More module is use()ed here so read
	27	# its man page ( perldoc Test::More ) for help writing this test script.
	28

+5

-5

t/centos/files less more

0		exists:
1		redhat-release
2		do not:
3		redhat_version
4		lsb-release
	0	exists:
	1	redhat-release
	2	do not:
	3	redhat_version
	4	lsb-release

+1

-1

t/centos/redhat-release less more

0		CentOS release 5.5 (Final)
	0	CentOS release 5.5 (Final)

+14

-14

t/centos.t less more

0		use 5.006000;
1		use strict;
2		use warnings;
3
4		use Test::More tests => 2;
5		use lib '../lib/';
6		use Linux::Distribution;
7
8		local $Linux::Distribution::release_files_directory='t/centos/';
9		my $linux = Linux::Distribution->new;
10		my $distro = $linux->distribution_name();
11		is($distro,'centos');
12		my $version = $linux->distribution_version();
13		is ($version,'5.5');
	0	use 5.006000;
	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	5	use lib '../lib/';
	6	use Linux::Distribution;
	7
	8	local $Linux::Distribution::release_files_directory='t/centos/';
	9	my $linux = Linux::Distribution->new;
	10	my $distro = $linux->distribution_name();
	11	is($distro,'centos');
	12	my $version = $linux->distribution_version();
	13	is ($version,'5.5');

+1

-1

t/centos6/centos-release less more

0		CentOS Linux release 6.0 (Final)
	0	CentOS Linux release 6.0 (Final)

+5

-5

t/centos6/files less more

0		exists:
1		centos-release
2		do not:
3		redhat_version
4		lsb-release
	0	exists:
	1	centos-release
	2	do not:
	3	redhat_version
	4	lsb-release

+14

-14

t/centos6.t less more

0		use 5.006000;
1		use strict;
2		use warnings;
3
4		use Test::More tests => 2;
5		use lib '../lib/';
6		use Linux::Distribution;
7
8		local $Linux::Distribution::release_files_directory='t/centos6/';
9		my $linux = Linux::Distribution->new;
10		my $distro = $linux->distribution_name();
11		is($distro,'centos');
12		my $version = $linux->distribution_version();
13		is ($version,'6.0');
	0	use 5.006000;
	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	5	use lib '../lib/';
	6	use Linux::Distribution;
	7
	8	local $Linux::Distribution::release_files_directory='t/centos6/';
	9	my $linux = Linux::Distribution->new;
	10	my $distro = $linux->distribution_name();
	11	is($distro,'centos');
	12	my $version = $linux->distribution_version();
	13	is ($version,'6.0');

+1

-1

t/fedora15/fedora-release less more

0		Fedora release 15 (Lovelock)
	0	Fedora release 15 (Lovelock)

+6

-6

t/fedora15/files less more

0		exists:
1		redhat-release
2		fedora-release
3		do not:
4		redhat_version
5		lsb-release
	0	exists:
	1	redhat-release
	2	fedora-release
	3	do not:
	4	redhat_version
	5	lsb-release

+1

-1

t/fedora15/redhat-release less more

0		Fedora release 15 (Lovelock)
	0	Fedora release 15 (Lovelock)

+14

-14

t/fedora15.t less more

0		use 5.006000;
1		use strict;
2		use warnings;
3
4		use Test::More tests => 2;
5		use lib '../lib/';
6		use Linux::Distribution;
7
8		local $Linux::Distribution::release_files_directory='t/fedora15/';
9		my $linux = Linux::Distribution->new;
10		my $distro = $linux->distribution_name();
11		is($distro,'fedora');
12		my $version = $linux->distribution_version();
13		is ($version,'15');
	0	use 5.006000;
	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	5	use lib '../lib/';
	6	use Linux::Distribution;
	7
	8	local $Linux::Distribution::release_files_directory='t/fedora15/';
	9	my $linux = Linux::Distribution->new;
	10	my $distro = $linux->distribution_name();
	11	is($distro,'fedora');
	12	my $version = $linux->distribution_version();
	13	is ($version,'15');

+1

-1

t/oel6/enterprise-release less more

0		Enterprise Linux Enterprise Linux Server release 5.6 (Carthage)
	0	Enterprise Linux Enterprise Linux Server release 5.6 (Carthage)

+6

-6

t/oel6/files less more

0		exists:
1		enterprise-release
2		redhat-release
3		do not:
4		redhat_version
5		lsb-release
	0	exists:
	1	enterprise-release
	2	redhat-release
	3	do not:
	4	redhat_version
	5	lsb-release

+1

-1

t/oel6/redhat-release less more

0		Red Hat Enterprise Linux Server release 5.6 (Tikanga)
	0	Red Hat Enterprise Linux Server release 5.6 (Tikanga)

+14

-14

t/oel6.t less more

0		use 5.006000;
1		use strict;
2		use warnings;
3
4		use Test::More tests => 2;
5		use lib '../lib/';
6		use Linux::Distribution;
7
8		local $Linux::Distribution::release_files_directory='t/oel6/';
9		my $linux = Linux::Distribution->new;
10		my $distro = $linux->distribution_name();
11		is($distro,'oracle enterprise linux');
12		my $version = $linux->distribution_version();
13		is ($version,'5.6');
	0	use 5.006000;
	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	5	use lib '../lib/';
	6	use Linux::Distribution;
	7
	8	local $Linux::Distribution::release_files_directory='t/oel6/';
	9	my $linux = Linux::Distribution->new;
	10	my $distro = $linux->distribution_name();
	11	is($distro,'oracle enterprise linux');
	12	my $version = $linux->distribution_version();
	13	is ($version,'5.6');

+5

-5

t/rhel6/files less more

0		exists:
1		redhat-release
2		do not:
3		redhat_version
4		lsb-release
	0	exists:
	1	redhat-release
	2	do not:
	3	redhat_version
	4	lsb-release

+2

-2

t/rhel6/redhat-release less more

0		Red Hat Enterprise Linux Server release 6.1 (Santiago)
1
	0	Red Hat Enterprise Linux Server release 6.1 (Santiago)
	1

+14

-14

t/rhel6.t less more

0		use 5.006000;
1		use strict;
2		use warnings;
3
4		use Test::More tests => 2;
5		use lib '../lib/';
6		use Linux::Distribution;
7
8		local $Linux::Distribution::release_files_directory='t/rhel6/';
9		my $linux = Linux::Distribution->new;
10		my $distro = $linux->distribution_name();
11		is($distro,'redhat');
12		my $version = $linux->distribution_version();
13		is ($version,'6.1');
	0	use 5.006000;
	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	5	use lib '../lib/';
	6	use Linux::Distribution;
	7
	8	local $Linux::Distribution::release_files_directory='t/rhel6/';
	9	my $linux = Linux::Distribution->new;
	10	my $distro = $linux->distribution_name();
	11	is($distro,'redhat');
	12	my $version = $linux->distribution_version();
	13	is ($version,'6.1');

+5

-5

t/scientific6/files less more

0		exists:
1		redhat-release
2		do not:
3		redhat_version
4		lsb-release
	0	exists:
	1	redhat-release
	2	do not:
	3	redhat_version
	4	lsb-release

+1

-1

t/scientific6/redhat-release less more

0		Scientific Linux release 6.1 (Carbon)
	0	Scientific Linux release 6.1 (Carbon)

+14

-14

t/scientific6.t less more

0		use 5.006000;
1		use strict;
2		use warnings;
3
4		use Test::More tests => 2;
5		use lib '../lib/';
6		use Linux::Distribution;
7
8		local $Linux::Distribution::release_files_directory='t/scientific6/';
9		my $linux = Linux::Distribution->new;
10		my $distro = $linux->distribution_name();
11		is($distro,'scientific');
12		my $version = $linux->distribution_version();
13		is ($version,'6.1');
	0	use 5.006000;
	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	5	use lib '../lib/';
	6	use Linux::Distribution;
	7
	8	local $Linux::Distribution::release_files_directory='t/scientific6/';
	9	my $linux = Linux::Distribution->new;
	10	my $distro = $linux->distribution_name();
	11	is($distro,'scientific');
	12	my $version = $linux->distribution_version();
	13	is ($version,'6.1');