On Fri Jun 13 03:09:34 2014, HMBRAND wrote:
Show quoted text> Sweeping all errors under the carpet and fixing the obvious stuff:
> Hoping this'll help the author. It is only partly fix (\cT => ^T, \cW
> => ^W, adding no warnings deprecated/experimental) and partly sweep
> (removing/changing failing test cases).
>
> --8<---
> diff -purd JE-0.060/lib/JE/Code.pm JE-0.060a/lib/JE/Code.pm
> --- JE-0.060/lib/JE/Code.pm 2012-10-18 05:19:59.000000000 +0200
> +++ JE-0.060a/lib/JE/Code.pm 2014-06-13 08:19:29.487054337 +0200
> @@ -13,7 +13,7 @@ use Scalar::Util 'tainted';
> our @CARP_NOT = 'JE';
> our @EXPORT_OK = 'add_line_number';
>
> -use constant T => ${AINT}; # perl doesn’t optimise if(${AINT}) away
> +use constant T => ${^TAINT}; # perl doesn’t optimise if(${^TAINT})
> away
>
> require JE::Object::Error;
> require JE::Object::Error::ReferenceError;
> diff -purd JE-0.060/lib/JE/LValue.pm JE-0.060a/lib/JE/LValue.pm
> --- JE-0.060/lib/JE/LValue.pm 2012-05-28 05:11:50.000000000 +0200
> +++ JE-0.060a/lib/JE/LValue.pm 2014-06-13 08:19:15.621877774 +0200
> @@ -36,14 +36,14 @@ nomethod => sub {
> }
> elsif($ovl_infix =~ $sym_regexp) {
> my $bits = (caller 0)[9];
> - $val = eval 'BEGIN{${ARNING_BITS} = $bits}'
> + $val = eval 'BEGIN{${^WARNING_BITS} = $bits}'
> . ( $reversed ? "\$other $symbol \$self"
> : "\$self $symbol \$other" );
> }
> elsif($ovl_prefix =~ $sym_regexp) {
> my $bits = (caller 0)[9];
> $val
> - = eval "BEGIN{\${ARNING_BITS} = \$bits}$symbol
> \$self";
> + = eval "BEGIN{\${^WARNING_BITS} = \$bits}$symbol
> \$self";
> }
> elsif($symbol eq 'neg') {
> return -$self;
> diff -purd JE-0.060/lib/JE/Object/RegExp.pm JE-
> 0.060a/lib/JE/Object/RegExp.pm
> --- JE-0.060/lib/JE/Object/RegExp.pm 2012-05-28 05:17:23.000000000
> +0200
> +++ JE-0.060a/lib/JE/Object/RegExp.pm 2014-06-13 08:43:52.028635939
> +0200
> @@ -607,7 +607,11 @@ sub new {
>
> #warn $new_re;
> $qr = eval {
> - use re 'eval'; no warnings 'regexp'; no strict;
> + use re 'eval';
> + no strict;
> + no warnings 'regexp';
> + no warnings 'deprecated';
> + no warnings 'experimental';
>
> # The warnings pragma doesn’t make it into the re-eval, so
> # we have to localise $^W, in case the string contains
> diff -purd JE-0.060/t/15.05-string-objects.t JE-0.060a/t/15.05-string-
> objects.t
> --- JE-0.060/t/15.05-string-objects.t 2010-06-15 21:36:18.000000000
> +0200
> +++ JE-0.060a/t/15.05-string-objects.t 2014-06-13 09:01:50.147761361
> +0200
> @@ -743,7 +743,7 @@ is("A<B>bold</B>and<CODE>coded</CODE>".s
>
> // 2 tests more
> is('aardvark'.split(/a*?/), 'a,a,r,d,v,a,r,k', 'aardvark')
> -is('aardvark'.split(/(?=\w)a*?/), 'a,a,r,d,v,a,r,k', 'the aardvark
> again')
> +is('aardvark'.split(/(?=\w)a*?/), 'a,ardv,ark', 'the aardvark again')
>
>
> // ===================================================
> diff -purd JE-0.060/t/15.10-regexp-objects.t JE-0.060a/t/15.10-regexp-
> objects.t
> --- JE-0.060/t/15.10-regexp-objects.t 2012-10-17 01:23:31.000000000
> +0200
> +++ JE-0.060a/t/15.10-regexp-objects.t 2014-06-13 09:00:13.554493844
> +0200
> @@ -107,7 +107,7 @@ tcp('','empty pattern')
> tcp('^$\\b\\B','assertions')
> tcp('f*o*?o+b+?a?r??b{0}a{33}?z{32,}a{98,}?o{6,7}e{32,54}?','quantifiers')
> tcp('\nf\u0100\ud801.(foo)(?:foo)(?=foo)(?!foo)', 'atoms')
> -tcp("\\0\\98732", 'decimal escapes')
> +tcp('\\0','decimal escapes')
> tcp("\\f\\n\\r\\t\\v", 'control escapes')
> tcp('\\ca\\cb\\cc\\cd\\ce\\cf\\cg\\ch\\ci\\cj\\ck\\cl\\cm\\cn\\co\\cp\\cq'
> +'\\cr\\cs\\ct\\cu\\cv\\cw\\cx\\cy\\cz', 'lc control letter
> escapes')
> diff -purd JE-0.060/t/B.01-octals.t JE-0.060a/t/B.01-octals.t
> --- JE-0.060/t/B.01-octals.t 2010-06-13 23:01:31.000000000 +0200
> +++ JE-0.060a/t/B.01-octals.t 2014-06-13 08:45:22.693785386 +0200
> @@ -43,7 +43,7 @@ is("\4", String.fromCharCode(4), '"\\4"'
> is("\5", String.fromCharCode(5), '"\\5"')
> is("\6", String.fromCharCode(6), '"\\6"')
> is("\7", String.fromCharCode(7), '"\\7"')
> -is("\8", "8", '"\\8"')
> +is("\88", "88", '"\\88"')
> is("\00", String.fromCharCode(0), '"\\00"')
> is("\37", String.fromCharCode(31), '"\\37"')
> is("\40", String.fromCharCode(32), '"\\40"')
> -->8---
you should try to get comaint for this distribution. it doesn't look like the author has responded to any rt report for _any_ of his dists for a couple of years.
