r72855 - in /branches/upstream/libeval-closure-perl/current: Changes META.json META.yml Makefile.PL README lib/Eval/Closure.pm t/00-compile.t
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Wed Apr 20 17:25:53 UTC 2011
Author: ghedo-guest
Date: Wed Apr 20 17:25:36 2011
New Revision: 72855
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72855
Log:
[svn-upgrade] new version libeval-closure-perl (0.04)
Modified:
branches/upstream/libeval-closure-perl/current/Changes
branches/upstream/libeval-closure-perl/current/META.json
branches/upstream/libeval-closure-perl/current/META.yml
branches/upstream/libeval-closure-perl/current/Makefile.PL
branches/upstream/libeval-closure-perl/current/README
branches/upstream/libeval-closure-perl/current/lib/Eval/Closure.pm
branches/upstream/libeval-closure-perl/current/t/00-compile.t
Modified: branches/upstream/libeval-closure-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libeval-closure-perl/current/Changes?rev=72855&op=diff
==============================================================================
--- branches/upstream/libeval-closure-perl/current/Changes (original)
+++ branches/upstream/libeval-closure-perl/current/Changes Wed Apr 20 17:25:36 2011
@@ -1,4 +1,8 @@
Revision history for Eval-Closure
+
+0.04 2011-04-15
+ - stop using Memoize, it apparently doesn't work properly under mod_perl
+ in some situations (mateu)
0.03 2011-03-02
- don't add #line directives when the debugger is active (alh)
Modified: branches/upstream/libeval-closure-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libeval-closure-perl/current/META.json?rev=72855&op=diff
==============================================================================
--- branches/upstream/libeval-closure-perl/current/META.json (original)
+++ branches/upstream/libeval-closure-perl/current/META.json Wed Apr 20 17:25:36 2011
@@ -45,7 +45,7 @@
"web" : "http://github.com/doy/eval-closure"
}
},
- "version" : "0.03",
+ "version" : "0.04",
"x_Dist_Zilla" : {
"plugins" : [
{
@@ -172,7 +172,7 @@
{
"class" : "Dist::Zilla::Plugin::CompileTests",
"name" : "@DOY/CompileTests",
- "version" : "1.103030"
+ "version" : "1.110930"
},
{
"class" : "Dist::Zilla::Plugin::Repository",
Modified: branches/upstream/libeval-closure-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libeval-closure-perl/current/META.yml?rev=72855&op=diff
==============================================================================
--- branches/upstream/libeval-closure-perl/current/META.yml (original)
+++ branches/upstream/libeval-closure-perl/current/META.yml Wed Apr 20 17:25:36 2011
@@ -23,7 +23,7 @@
Try::Tiny: 0
resources:
repository: git://github.com/doy/eval-closure.git
-version: 0.03
+version: 0.04
x_Dist_Zilla:
plugins:
-
@@ -125,7 +125,7 @@
-
class: Dist::Zilla::Plugin::CompileTests
name: '@DOY/CompileTests'
- version: 1.103030
+ version: 1.110930
-
class: Dist::Zilla::Plugin::Repository
name: '@DOY/Repository'
Modified: branches/upstream/libeval-closure-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libeval-closure-perl/current/Makefile.PL?rev=72855&op=diff
==============================================================================
--- branches/upstream/libeval-closure-perl/current/Makefile.PL (original)
+++ branches/upstream/libeval-closure-perl/current/Makefile.PL Wed Apr 20 17:25:36 2011
@@ -28,7 +28,7 @@
'Sub::Exporter' => '0',
'Try::Tiny' => '0'
},
- 'VERSION' => '0.03',
+ 'VERSION' => '0.04',
'test' => {
'TESTS' => 't/*.t'
}
Modified: branches/upstream/libeval-closure-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libeval-closure-perl/current/README?rev=72855&op=diff
==============================================================================
--- branches/upstream/libeval-closure-perl/current/README (original)
+++ branches/upstream/libeval-closure-perl/current/README Wed Apr 20 17:25:36 2011
@@ -1,7 +1,7 @@
This archive contains the distribution Eval-Closure,
-version 0.03:
+version 0.04:
safely and cleanly create closures via string eval
Modified: branches/upstream/libeval-closure-perl/current/lib/Eval/Closure.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libeval-closure-perl/current/lib/Eval/Closure.pm?rev=72855&op=diff
==============================================================================
--- branches/upstream/libeval-closure-perl/current/lib/Eval/Closure.pm (original)
+++ branches/upstream/libeval-closure-perl/current/lib/Eval/Closure.pm Wed Apr 20 17:25:36 2011
@@ -1,6 +1,6 @@
package Eval::Closure;
BEGIN {
- $Eval::Closure::VERSION = '0.03';
+ $Eval::Closure::VERSION = '0.04';
}
use strict;
use warnings;
@@ -12,7 +12,6 @@
use Carp;
use overload ();
-use Memoize;
use Scalar::Util qw(reftype);
use Try::Tiny;
@@ -113,14 +112,23 @@
return ($code, $e);
}
-sub _make_compiler {
- local $@;
- local $SIG{__DIE__};
- my $compiler = eval _make_compiler_source(@_);
- my $e = $@;
- return ($compiler, $e);
-}
-memoize('_make_compiler');
+{
+ my %compiler_cache;
+
+ sub _make_compiler {
+ my $source = _make_compiler_source(@_);
+
+ unless (exists $compiler_cache{$source}) {
+ local $@;
+ local $SIG{__DIE__};
+ my $compiler = eval $source;
+ my $e = $@;
+ $compiler_cache{$source} = [ $compiler, $e ];
+ }
+
+ return @{ $compiler_cache{$source} };
+ }
+}
sub _make_compiler_source {
my ($source, @capture_keys) = @_;
@@ -164,7 +172,7 @@
=head1 VERSION
-version 0.03
+version 0.04
=head1 SYNOPSIS
Modified: branches/upstream/libeval-closure-perl/current/t/00-compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libeval-closure-perl/current/t/00-compile.t?rev=72855&op=diff
==============================================================================
--- branches/upstream/libeval-closure-perl/current/t/00-compile.t (original)
+++ branches/upstream/libeval-closure-perl/current/t/00-compile.t Wed Apr 20 17:25:36 2011
@@ -24,7 +24,18 @@
'lib',
);
-my @scripts = glob "bin/*";
+my @scripts;
+if ( -d 'bin' ) {
+ find(
+ sub {
+ return unless -f;
+ my $found = $File::Find::name;
+ # nothing to skip
+ push @scripts, $found;
+ },
+ 'bin',
+ );
+}
my $plan = scalar(@modules) + scalar(@scripts);
$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");
More information about the Pkg-perl-cvs-commits
mailing list