From: Vincent Pit Date: Thu, 16 Apr 2009 22:48:31 +0000 (+0200) Subject: This is 0.08 X-Git-Tag: v0.08^0 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=4c8461e81387b2f965156423ae04f418d8da1312 This is 0.08 --- diff --git a/Changes b/Changes index f03372c..7bff6da 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,11 @@ Revision history for Scope-Upper +0.08 2009-04-16 22:50 UTC + + Fix : [RT #44204] : Stack corruption with reap(). Thanks Torsten + Foertsch for reporting. + + Fix : Building with Solaris CC. + + Tst : unwind() in threads. + 0.07 2009-02-20 00:20 UTC + Chg : The CLONE method will no longer be defined for non-threaded perls. diff --git a/META.yml b/META.yml index 99a34cb..e8d0513 100644 --- a/META.yml +++ b/META.yml @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Scope-Upper -version: 0.07 +version: 0.08 abstract: Act on upper scopes. author: - Vincent Pit @@ -19,12 +19,12 @@ resources: bugtracker: http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Scope-Upper homepage: http://search.cpan.org/dist/Scope-Upper/ license: http://dev.perl.org/licenses/ - repository: http://git.profvince.com/perl/modules/Scope-Upper.git + repository: http://git.profvince.com/?p=perl/modules/Scope-Upper.git no_index: directory: - t - inc -generated_by: ExtUtils::MakeMaker version 6.48 +generated_by: ExtUtils::MakeMaker version 6.50 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 diff --git a/README b/README index 16f88ca..d0327e1 100644 --- a/README +++ b/README @@ -2,7 +2,7 @@ NAME Scope::Upper - Act on upper scopes. VERSION - Version 0.07 + Version 0.08 SYNOPSIS package X; @@ -57,7 +57,9 @@ SYNOPSIS sub zap { try { return @things; # returns to try() and then outside zap() + # not reached } + # not reached } my @what = zap(); # @what contains @things @@ -86,8 +88,8 @@ FUNCTIONS needed, and it will still denote the original scope. "reap $callback, $context" - Add a destructor that calls $callback when the upper scope represented - by $context ends. + Add a destructor that calls $callback (in void context) when the upper + scope represented by $context ends. "localize $what, $value, $context" A "local" delayed to the time of first return into the upper scope @@ -151,6 +153,7 @@ FUNCTIONS my $num = sub { my @a = ('a' .. 'z'); unwind @a => HERE; + # not reached }->(); will set $num to 'z'. You can use "want_at" to handle these cases. @@ -164,6 +167,7 @@ FUNCTIONS my $num = sub { my @a = ('a' .. 'z'); unwind +(want_at(HERE) ? @a : scalar @a) => HERE; + # not reached }->(); will righteously set $num to 26. diff --git a/lib/Scope/Upper.pm b/lib/Scope/Upper.pm index d276ae4..104674d 100644 --- a/lib/Scope/Upper.pm +++ b/lib/Scope/Upper.pm @@ -9,13 +9,13 @@ Scope::Upper - Act on upper scopes. =head1 VERSION -Version 0.07 +Version 0.08 =cut our $VERSION; BEGIN { - $VERSION = '0.07'; + $VERSION = '0.08'; } =head1 SYNOPSIS