Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fixes to work with new range seperator + cleanup

  • Loading branch information...
commit 78faff4fafb2b36be2af0ab9f5e8dec71d19b1a3 1 parent 4c55bc4
Syam Puranam authored
View
2  perl_seco_libcrange/index.yaml
@@ -1,4 +1,4 @@
default:
name: perl-seco-libcrange
- version: '1.0'
+ version: '1.1'
summary: Seco::Libcrange
View
5 perl_seco_libcrange/source/Makefile.PL
@@ -25,8 +25,9 @@ WriteMakefile(
PREREQ_PM => {}, # e.g., Module::Name => 1.1
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'lib/Seco/Libcrange.pm', # retrieve abstract from module
- AUTHOR => 'Syam Puranam <syam@yahoo-inc.com>') : ()),
- LIBS => ["-L/usr/local/lib -lcrange $ld_flags"], # e.g., '-lm'
+ AUTHOR => 'Syam Puranam <github@syam.in>') : ()),
+ # Libcrange unfortunately installs 64 bit libraries in 32 bit paths
+ LIBS => [" -L/usr/lib -L/usr/local/lib -lcrange $ld_flags"], # e.g., '-lm'
DEFINE => '', # e.g., '-DHAVE_SOMETHING'
INC => "-I. $c_flags", # e.g., '-I. -I/usr/include/other'
# Un-comment this if you add C files to link with later:
View
1  perl_seco_libcrange/source/README
View
40 perl_seco_libcrange/source/README
@@ -1,40 +0,0 @@
-Seco-Libcrange version 0.01
-===========================
-
-The README is used to introduce the module and provide instructions on
-how to install the module, any machine dependencies it may have (for
-example C compilers and installed libraries) and any other information
-that should be provided before the module is installed.
-
-A README file is required for CPAN modules since CPAN extracts the
-README file from a module distribution so that people browsing the
-archive can use it get an idea of the modules uses. It is usually a
-good idea to provide version information here so that people can
-decide whether fixes for the module are worth downloading.
-
-INSTALLATION
-
-To install this module type the following:
-
- perl Makefile.PL
- make
- make test
- make install
-
-DEPENDENCIES
-
-This module requires these other modules and libraries:
-
- blah blah blah
-
-COPYRIGHT AND LICENCE
-
-Put the correct copyright and licence information here.
-
-Copyright (C) 2010 by Yahoo! Inc.
-
-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,
-at your option, any later version of Perl 5 you may have available.
-
-
View
9 perl_seco_libcrange/source/t/Seco-Libcrange.t
@@ -4,7 +4,6 @@
#########################
# change 'tests => 13' to 'tests => last_test_to_print';
-
use Test::More tests => 13;
BEGIN { use_ok('Seco::Libcrange') };
@@ -15,15 +14,15 @@ BEGIN { use_ok('Seco::Libcrange') };
my $r = Seco::Libcrange::->new('/etc/libcrange.conf');
-ok (compare_arrays([$r->expand('1-2')], ['1','2']), '$r->expand');
-ok ($r->compress(['1','2']) eq '1-2', '$r->compress(\@)');
-ok ($r->compress(('1','2')) eq '1-2', '$r->compress(@)');
+ok (compare_arrays([$r->expand('1..2')], ['1','2']), '$r->expand');
+ok ($r->compress(['1','2']) eq '1..2', '$r->compress(\@)');
+ok ($r->compress(('1','2')) eq '1..2', '$r->compress(@)');
ok ($r->compress(('"1.com"','"2.com"')) eq '"1.com","2.com"', '$r->compress(literals)');
ok( !(defined $r->compress(undef)), '$r->compress(undef) returns undef');
ok( !(defined $r->compress([])), '$r->compress([]) returns undef');
ok( !defined $r->expand('1&2'), '$r->expand("1&2") returns undef');
ok( !defined $r->expand(undef), '$r->expand(undef) returns undef');
-ok('1-2' eq $r->compress($r->expand('1-2')), '$r->compress($r->expand())');
+ok('1..2' eq $r->compress($r->expand('1..2')), '$r->compress($r->expand())');
ok('"1.com","2.com"' eq $r->compress($r->expand('"1.com","2.com"')), '$r->compress($r->expand())');
ok('"1.com","2.com"' eq $r->compress($r->expand('q(1.com),q(2.com)')), '$r->compress($r->expand())');
ok('q(1.com),q(2.com)' eq $r->compress('q(1.com),q(2.com)'),'$r->compress()');
Please sign in to comment.
Something went wrong with that request. Please try again.