diff options
| author | Lubos Kolouch <lubos@kolouch.net> | 2020-05-02 16:46:22 +0200 |
|---|---|---|
| committer | Lubos Kolouch <lubos@kolouch.net> | 2020-05-02 16:46:22 +0200 |
| commit | e256989a080c9b0fb6cde2a02ec687040e762b77 (patch) | |
| tree | bc5fcd7546b4b3195511cb4c538f068f5ebc20be | |
| parent | 402d939f06e708782f632e0e6476a9f62177803d (diff) | |
| download | perlweeklychallenge-club-e256989a080c9b0fb6cde2a02ec687040e762b77.tar.gz perlweeklychallenge-club-e256989a080c9b0fb6cde2a02ec687040e762b77.tar.bz2 perlweeklychallenge-club-e256989a080c9b0fb6cde2a02ec687040e762b77.zip | |
It works with Perl::Version but not version
| -rw-r--r-- | challenge-058/lubos-kolouch/perl/ch-1.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-058/lubos-kolouch/perl/ch-1.pl b/challenge-058/lubos-kolouch/perl/ch-1.pl index 5e132040d8..269ac6bf8a 100644 --- a/challenge-058/lubos-kolouch/perl/ch-1.pl +++ b/challenge-058/lubos-kolouch/perl/ch-1.pl @@ -27,7 +27,6 @@ use strict; use warnings; -use Perl::Version; sub compare_versions { my ($ver1, $ver2) = @_; @@ -47,6 +46,6 @@ is(compare_versions('2.0','1.2'),1); is(compare_versions('1.2','1.2_5'),-1); # There is likely bug in the module, I have reported it -# https://rt.cpan.org/Ticket/Display.html?id=132481& +# https://rt.cpan.org/Ticket/Display.html?id=132482 is(compare_versions('1.2.1','1.2_1'),1); is(compare_versions('1.2.1','1.2.1'),0); |