r62854 - in /branches/upstream/libhook-lexwrap-perl/current: Build.PL Changes MANIFEST META.yml Makefile.PL lib/Hook/LexWrap.pm t/example1.t
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Fri Sep 24 20:32:53 UTC 2010
Author: carnil-guest
Date: Fri Sep 24 20:32:03 2010
New Revision: 62854
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62854
Log:
[svn-upgrade] new version libhook-lexwrap-perl (0.24)
Added:
branches/upstream/libhook-lexwrap-perl/current/t/example1.t
Modified:
branches/upstream/libhook-lexwrap-perl/current/Build.PL
branches/upstream/libhook-lexwrap-perl/current/Changes
branches/upstream/libhook-lexwrap-perl/current/MANIFEST
branches/upstream/libhook-lexwrap-perl/current/META.yml
branches/upstream/libhook-lexwrap-perl/current/Makefile.PL
branches/upstream/libhook-lexwrap-perl/current/lib/Hook/LexWrap.pm
Modified: branches/upstream/libhook-lexwrap-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhook-lexwrap-perl/current/Build.PL?rev=62854&op=diff
==============================================================================
--- branches/upstream/libhook-lexwrap-perl/current/Build.PL (original)
+++ branches/upstream/libhook-lexwrap-perl/current/Build.PL Fri Sep 24 20:32:03 2010
@@ -18,7 +18,8 @@
'repository' => 'http://github.com/chorny/Hook-LexWrap',
}
},
- 'dist_version_from' => 'lib/Hook/LexWrap.pm'
+ 'dist_version_from' => 'lib/Hook/LexWrap.pm',
+ 'auto_configure_requires' => 0,
);
$build->create_build_script();
Modified: branches/upstream/libhook-lexwrap-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhook-lexwrap-perl/current/Changes?rev=62854&op=diff
==============================================================================
--- branches/upstream/libhook-lexwrap-perl/current/Changes (original)
+++ branches/upstream/libhook-lexwrap-perl/current/Changes Fri Sep 24 20:32:03 2010
@@ -57,3 +57,7 @@
- Add Build.PL
- better support for debugger
+
+0.24 Sep 24 2010
+ - Makefile.PL fixed
+ - New test added
Modified: branches/upstream/libhook-lexwrap-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhook-lexwrap-perl/current/MANIFEST?rev=62854&op=diff
==============================================================================
--- branches/upstream/libhook-lexwrap-perl/current/MANIFEST (original)
+++ branches/upstream/libhook-lexwrap-perl/current/MANIFEST Fri Sep 24 20:32:03 2010
@@ -1,12 +1,13 @@
+Build.PL
Changes
-MANIFEST
-Makefile.PL
-Build.PL
-README
-lib/Hook/LexWrap.pm
-t/test.t
-t/pod.t
demo/demo_memo.pl
demo/demo_temp.pl
is_prerequisite
-META.yml Module meta-data (added by MakeMaker)
+lib/Hook/LexWrap.pm
+Makefile.PL
+MANIFEST This list of files
+META.yml
+README
+t/example1.t
+t/pod.t
+t/test.t
Modified: branches/upstream/libhook-lexwrap-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhook-lexwrap-perl/current/META.yml?rev=62854&op=diff
==============================================================================
--- branches/upstream/libhook-lexwrap-perl/current/META.yml (original)
+++ branches/upstream/libhook-lexwrap-perl/current/META.yml Fri Sep 24 20:32:03 2010
@@ -4,9 +4,7 @@
- 'Damian Conway (damian at conway.org)'
build_requires:
Test::More: 0
-configure_requires:
- Module::Build: 0.36
-generated_by: 'Module::Build version 0.3603'
+generated_by: 'Module::Build version 0.3614'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -15,7 +13,7 @@
provides:
Hook::LexWrap:
file: lib/Hook/LexWrap.pm
- version: 0.23
+ version: 0.24
Hook::LexWrap::Cleanup:
file: lib/Hook/LexWrap.pm
requires:
@@ -23,4 +21,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: http://github.com/chorny/Hook-LexWrap
-version: 0.23
+version: 0.24
Modified: branches/upstream/libhook-lexwrap-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhook-lexwrap-perl/current/Makefile.PL?rev=62854&op=diff
==============================================================================
--- branches/upstream/libhook-lexwrap-perl/current/Makefile.PL (original)
+++ branches/upstream/libhook-lexwrap-perl/current/Makefile.PL Fri Sep 24 20:32:03 2010
@@ -14,32 +14,36 @@
BUILD_REQUIRES => {
'Test::More' => 0,
},
- ($ExtUtils::MakeMaker::VERSION ge '6.31'?
- ('LICENSE' => 'perl', ) : ()),
- ($ExtUtils::MakeMaker::VERSION ge '6.48'?
- ('MIN_PERL_VERSION' => 5.006,) : ()),
+ LICENSE => 'perl',
+ MIN_PERL_VERSION => '5.006',
+ META_MERGE => {
+ resources => {
+ repository => 'http://github.com/chorny/Hook-LexWrap',
+ },
+ },
clean => { FILES => 'Hook-LexWrap-*' },
);
-sub WriteMakefile1 {
- my %params=@_;
- my $eumm_version=$ExtUtils::MakeMaker::VERSION;
- $eumm_version=eval $eumm_version;
- die "EXTRA_META is deprecated" if exists $params{EXTRA_META};
- die "License not specified" if not exists $params{LICENSE};
- if ($params{BUILD_REQUIRES} and $eumm_version < 6.5503) { #
- #Should be modified in future when EUMM will
- #correctly support BUILD_REQUIRES.
- #EUMM 6.5502 has problems with BUILD_REQUIRES
- $params{PREREQ_PM}={ %{$params{PREREQ_PM} || {}} , %{$params{BUILD_REQUIRES}} };
- delete $params{BUILD_REQUIRES};
- }
- delete $params{CONFIGURE_REQUIRES} if $eumm_version < 6.52;
- delete $params{MIN_PERL_VERSION} if $eumm_version < 6.48;
- delete $params{META_MERGE} if $eumm_version < 6.46;
- delete $params{META_ADD} if $eumm_version < 6.46;
- delete $params{LICENSE} if $eumm_version < 6.31;
- delete $params{AUTHOR} if $] < 5.005;
- delete $params{ABSTRACT_FROM} if $] < 5.005;
- WriteMakefile(%params);
+sub WriteMakefile1 { #Written by Alexandr Ciornii, version 0.21. Added by eumm-upgrade.
+ my %params=@_;
+ my $eumm_version=$ExtUtils::MakeMaker::VERSION;
+ $eumm_version=eval $eumm_version;
+ die "EXTRA_META is deprecated" if exists $params{EXTRA_META};
+ die "License not specified" if not exists $params{LICENSE};
+ if ($params{BUILD_REQUIRES} and $eumm_version < 6.5503) {
+ #EUMM 6.5502 has problems with BUILD_REQUIRES
+ $params{PREREQ_PM}={ %{$params{PREREQ_PM} || {}} , %{$params{BUILD_REQUIRES}} };
+ delete $params{BUILD_REQUIRES};
+ }
+ delete $params{CONFIGURE_REQUIRES} if $eumm_version < 6.52;
+ delete $params{MIN_PERL_VERSION} if $eumm_version < 6.48;
+ delete $params{META_MERGE} if $eumm_version < 6.46;
+ delete $params{META_ADD} if $eumm_version < 6.46;
+ delete $params{LICENSE} if $eumm_version < 6.31;
+ delete $params{AUTHOR} if $] < 5.005;
+ delete $params{ABSTRACT_FROM} if $] < 5.005;
+ delete $params{BINARY_LOCATION} if $] < 5.005;
+
+ WriteMakefile(%params);
}
+
Modified: branches/upstream/libhook-lexwrap-perl/current/lib/Hook/LexWrap.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhook-lexwrap-perl/current/lib/Hook/LexWrap.pm?rev=62854&op=diff
==============================================================================
--- branches/upstream/libhook-lexwrap-perl/current/lib/Hook/LexWrap.pm (original)
+++ branches/upstream/libhook-lexwrap-perl/current/lib/Hook/LexWrap.pm Fri Sep 24 20:32:03 2010
@@ -2,7 +2,7 @@
use 5.006;
use strict;
use warnings;
-our $VERSION = '0.23';
+our $VERSION = '0.24';
use Carp;
{
Added: branches/upstream/libhook-lexwrap-perl/current/t/example1.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhook-lexwrap-perl/current/t/example1.t?rev=62854&op=file
==============================================================================
--- branches/upstream/libhook-lexwrap-perl/current/t/example1.t (added)
+++ branches/upstream/libhook-lexwrap-perl/current/t/example1.t Fri Sep 24 20:32:03 2010
@@ -1,0 +1,28 @@
+
+use strict;
+use warnings;
+use Test::More tests => 2;
+use Hook::LexWrap;
+
+my $str='';
+sub doit { $str.= "[doit:{".join(',',caller)."}]"; return {my=>"data"} }
+
+SCOPED: {
+ no warnings 'uninitialized'; #last argument in wrapper sub
+ wrap doit,
+ pre => sub { $str.="[pre1: @_]" },
+ post => sub { $str.="[post1:@_]"; $_[1]=9; };
+
+ my $temporarily = wrap doit,
+ post => sub { $str.="[post2:@_]" },
+ pre => sub { $str.="[pre2: @_]"};
+
+ my @args = (1,2,3);
+ doit(@args); # pre2->pre1->doit->post1->post2
+ is ($str,'[pre2: 1 2 3 ][pre1: 1 2 3 ][doit:{main,'.__FILE__.','.(__LINE__-1).'}][post1:1 2 3 ][post2:1 9 3 ]');
+}
+
+$str='';
+my @args = (4,5,6);
+doit(@args); # pre1->doit->post1
+is ($str,'[pre1: 4 5 6 ][doit:{main,'.__FILE__.','.(__LINE__-1).'}][post1:4 5 6 ]');
More information about the Pkg-perl-cvs-commits
mailing list