Object-InsideOut v3.97

jdhedden · Apr 22, 2016 · 8f75b9f · 8f75b9f
1 parent 169eb4f
commit 8f75b9f
Show file tree

Hide file tree

Showing 21 changed files with 42 additions and 35 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Object::InsideOut.
 
+3.97 Thu Nov 15 13:34:15 2012
+	- Fix for panic during destroy from Krzysztof Lewicki
+
 3.96 Mon Oct  1 12:22:50 2012
 	- Tweaks in tests for changes in core warning messages
 

diff --git a/README b/README
@@ -1,4 +1,4 @@
-Object-InsideOut version 3.96
+Object-InsideOut version 3.97
 =============================
 
 This module provides comprehensive support for implementing classes using the

diff --git a/examples/YAPI.pm b/examples/YAPI.pm
@@ -2,7 +2,7 @@ package Term::YAPI; {
     use strict;
     use warnings;
 
-    our $VERSION = '3.96';
+    our $VERSION = '3.97';
 
     #####
     #
@@ -22,7 +22,7 @@ package Term::YAPI; {
         $threaded_okay = !$@;
     }
 
-    use Object::InsideOut 3.96;
+    use Object::InsideOut 3.97;
 
     # Default progress indicator is a twirling bar
     my @yapi :Field

diff --git a/lib/Bundle/Object/InsideOut.pm b/lib/Bundle/Object/InsideOut.pm
@@ -3,7 +3,7 @@ package Bundle::Object::InsideOut;
 use strict;
 use warnings;
 
-our $VERSION = '3.96';
+our $VERSION = '3.97';
 $VERSION = eval $VERSION;
 
 1;
@@ -44,11 +44,11 @@ Test::Pod::Coverage 1.08        - Tests POD coverage
 
 threads 1.86                    - Support for threads
 
-threads::shared 1.41            - Support for sharing objects between threads
+threads::shared 1.42            - Support for sharing objects between threads
 
 Want 0.21                       - :lvalue accessor support
 
-Data::Dumper 2.135              - Object serialization support
+Data::Dumper 2.136              - Object serialization support
 
 Storable 2.39                   - Object serialization support
 
@@ -58,7 +58,7 @@ Class::Data::Inheritable 0.08   - Used by Exception::Class
 
 Exception::Class 1.35           - Error handling
 
-Object::InsideOut 3.96          - Inside-out object support
+Object::InsideOut 3.97          - Inside-out object support
 
 URI 1.60                        - Used by LWP::UserAgent
 

diff --git a/lib/Object/InsideOut.pm b/lib/Object/InsideOut.pm
@@ -5,12 +5,12 @@ require 5.006;
 use strict;
 use warnings;
 
-our $VERSION = '3.96';
+our $VERSION = '3.97';
 $VERSION = eval $VERSION;
 
-use Object::InsideOut::Exception 3.96;
-use Object::InsideOut::Util 3.96 qw(create_object hash_re is_it make_shared);
-use Object::InsideOut::Metadata 3.96;
+use Object::InsideOut::Exception 3.97;
+use Object::InsideOut::Util 3.97 qw(create_object hash_re is_it make_shared);
+use Object::InsideOut::Metadata 3.97;
 
 require B;
 
@@ -1935,7 +1935,7 @@ sub DESTROY
     my $err = $@;
 
     # Preserve other error variables
-    local($., $!, $^E, $?);
+    local($!, $^E, $?);
 
     # Workaround for Perl's "in cleanup" bug
     if ($threads::shared::threads_shared && ! $GBL{'term'}) {

diff --git a/lib/Object/InsideOut.pod b/lib/Object/InsideOut.pod
@@ -4,7 +4,7 @@ Object::InsideOut - Comprehensive inside-out object support module
 
 =head1 VERSION
 
-This document describes Object::InsideOut version 3.96
+This document describes Object::InsideOut version 3.97
 
 =head1 SYNOPSIS
 

diff --git a/lib/Object/InsideOut/Autoload.pm b/lib/Object/InsideOut/Autoload.pm
@@ -172,7 +172,7 @@ sub AUTOLOAD
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/lib/Object/InsideOut/Chained.pm b/lib/Object/InsideOut/Chained.pm
@@ -181,7 +181,7 @@ sub create_CHAINED :Sub(Private)
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/lib/Object/InsideOut/Cumulative.pm b/lib/Object/InsideOut/Cumulative.pm
@@ -206,11 +206,11 @@ package Object::InsideOut::Results; {
 use strict;
 use warnings;
 
-our $VERSION = '3.96';
+our $VERSION = '3.97';
 $VERSION = eval $VERSION;
 
-use Object::InsideOut 3.96;
-use Object::InsideOut::Metadata 3.96;
+use Object::InsideOut 3.97;
+use Object::InsideOut::Metadata 3.97;
 
 my @VALUES  :Field :Arg(VALUES);
 my @CLASSES :Field :Arg(CLASSES);
@@ -260,7 +260,7 @@ add_meta('Object::InsideOut::Results', {
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/lib/Object/InsideOut/Dump.pm b/lib/Object/InsideOut/Dump.pm
@@ -206,7 +206,7 @@ sub dump
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/lib/Object/InsideOut/Dynamic.pm b/lib/Object/InsideOut/Dynamic.pm
@@ -179,7 +179,7 @@ sub create_field
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/lib/Object/InsideOut/Exception.pm b/lib/Object/InsideOut/Exception.pm
@@ -3,7 +3,7 @@ package Object::InsideOut::Exception; {
 use strict;
 use warnings;
 
-our $VERSION = '3.96';
+our $VERSION = '3.97';
 $VERSION = eval $VERSION;
 
 # Exceptions generated by this module

diff --git a/lib/Object/InsideOut/Foreign.pm b/lib/Object/InsideOut/Foreign.pm
@@ -270,7 +270,7 @@ sub inherit
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/lib/Object/InsideOut/Metadata.pm b/lib/Object/InsideOut/Metadata.pm
@@ -3,7 +3,7 @@ package Object::InsideOut::Metadata; {
 use strict;
 use warnings;
 
-our $VERSION = '3.96';
+our $VERSION = '3.97';
 $VERSION = eval $VERSION;
 
 # Stores method metadata
@@ -99,7 +99,7 @@ __DATA__
 
 ### Object Interface ###
 
-use Object::InsideOut 3.96;
+use Object::InsideOut 3.97;
 
 my @CLASSES :Field;
 my @FOREIGN :Field;
@@ -268,7 +268,7 @@ Object::InsideOut::Metadata - Introspection for Object::InsideOut classes
 
 =head1 VERSION
 
-This document describes Object::InsideOut::Metadata version 3.96
+This document describes Object::InsideOut::Metadata version 3.97
 
 =head1 SYNOPSIS
 

diff --git a/lib/Object/InsideOut/Overload.pm b/lib/Object/InsideOut/Overload.pm
@@ -83,7 +83,7 @@ sub generate_OVERLOAD :Sub(Private)
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/lib/Object/InsideOut/Secure.pm b/lib/Object/InsideOut/Secure.pm
@@ -2,10 +2,10 @@ package Object::InsideOut::Secure; {
     use strict;
     use warnings;
 
-    our $VERSION = '3.96';
+    our $VERSION = '3.97';
     $VERSION = eval $VERSION;
 
-    use Object::InsideOut 3.96 ':hash_only';
+    use Object::InsideOut 3.97 ':hash_only';
 
     # Holds used IDs
     my %used :Field = ( 0 => undef );

diff --git a/lib/Object/InsideOut/Universal.pm b/lib/Object/InsideOut/Universal.pm
@@ -211,7 +211,7 @@ sub install_UNIVERSAL
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/lib/Object/InsideOut/Util.pm b/lib/Object/InsideOut/Util.pm
@@ -5,10 +5,10 @@ require 5.006;
 use strict;
 use warnings;
 
-our $VERSION = '3.96';
+our $VERSION = '3.97';
 $VERSION = eval $VERSION;
 
-use Object::InsideOut::Metadata 3.96;
+use Object::InsideOut::Metadata 3.97;
 
 ### Module Initialization ###
 

diff --git a/lib/Object/InsideOut/attributes.pm b/lib/Object/InsideOut/attributes.pm
@@ -79,7 +79,7 @@ sub FETCH_CODE_ATTRIBUTES   :Sub { return (FETCH_ATTRS('CODE',   @_)); }
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/lib/Object/InsideOut/lvalue.pm b/lib/Object/InsideOut/lvalue.pm
@@ -157,7 +157,7 @@ _PRE_
 
 
 # Ensure correct versioning
-($Object::InsideOut::VERSION == 3.96)
+($Object::InsideOut::VERSION == 3.97)
     or die("Version mismatch\n");
 
 # EOF
diff --git a/t/47-sh_reuse.t b/t/47-sh_reuse.t
@@ -71,7 +71,7 @@ MAIN:
     my $fm_thr = Thread::Queue->new();
 
     # Consumer
-    threads->create(\&consumer, $to_thr, $fm_thr)->detach();
+    my $thr = threads->create(\&consumer, $to_thr, $fm_thr);
 
     # Producer
     foreach (1..5) {
@@ -85,6 +85,10 @@ MAIN:
 
     $to_thr->enqueue('done');
     $fm_thr->dequeue();
+
+    $thr->join();
 }
 
+exit(0);
+
 # EOF