This is 0.08

diff --git a/Changes b/Changes
index f03372c2b90f87aa11431ae66f5d360f780a71d3..7bff6dae936f222afacf14ef89a60dbf12edfe78 100644 (file)
--- 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 99a34cb7aae7ba048b4809da04cb472c41d0e820..e8d051387c71677eedb54299330df9d824478659 100644 (file)
--- 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 <perl@profvince.com>
@@ -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 16f88ca56cd9895c60ad6903efac19530457fa7e..d0327e14cd8e52e39197258c9761d383e6849ed2 100644 (file)
--- 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 d276ae443f69b291cdcbe5ed8fa21b59da2af945..104674dae43167fb3afd32fda5f2b9f04a2db6c7 100644 (file)
--- 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