r53721 - in /trunk/libobject-insideout-perl: ./ debian/ examples/ lib/Bundle/Object/ lib/Object/ lib/Object/InsideOut/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Mar 6 17:27:03 UTC 2010
Author: gregoa
Date: Sat Mar 6 17:26:50 2010
New Revision: 53721
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53721
Log:
New upstream release.
Modified:
trunk/libobject-insideout-perl/Changes
trunk/libobject-insideout-perl/META.yml
trunk/libobject-insideout-perl/README
trunk/libobject-insideout-perl/debian/changelog
trunk/libobject-insideout-perl/examples/YAPI.pm
trunk/libobject-insideout-perl/lib/Bundle/Object/InsideOut.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut.pod
trunk/libobject-insideout-perl/lib/Object/InsideOut/Autoload.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Chained.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Cumulative.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Dump.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Dynamic.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Exception.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Foreign.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Metadata.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Overload.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Secure.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Universal.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/Util.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/attributes.pm
trunk/libobject-insideout-perl/lib/Object/InsideOut/lvalue.pm
Modified: trunk/libobject-insideout-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/Changes?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/Changes (original)
+++ trunk/libobject-insideout-perl/Changes Sat Mar 6 17:26:50 2010
@@ -1,4 +1,16 @@
Revision history for Perl extension Object::InsideOut.
+
+3.63 Fri Mar 5 13:11:48 EST 2010
+ - Fix for shared object destruction bug
+
+3.62 Thu Mar 4 04:24:02 2010
+ - Extended the change in v3.59 to Perl 5.8.9
+
+3.61 Wed Mar 3 21:37:19 2010
+ - Code cleanup
+
+3.59 Wed Mar 3 19:11:50 2010
+ - Fixed shared object destruction when using Thread::Queue
3.58 Wed Dec 23 12:45:55 2009
- Support type checking for scalar refs
Modified: trunk/libobject-insideout-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/META.yml?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/META.yml (original)
+++ trunk/libobject-insideout-perl/META.yml Sat Mar 6 17:26:50 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Object-InsideOut
-version: 3.58
+version: 3.63
abstract: Comprehensive inside-out object support module
author:
- Jerry D. Hedden <jdhedden AT cpan DOT org>
Modified: trunk/libobject-insideout-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/README?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/README (original)
+++ trunk/libobject-insideout-perl/README Sat Mar 6 17:26:50 2010
@@ -1,4 +1,4 @@
-Object-InsideOut version 3.58
+Object-InsideOut version 3.63
=============================
This module provides comprehensive support for implementing classes using the
Modified: trunk/libobject-insideout-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/debian/changelog?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/debian/changelog (original)
+++ trunk/libobject-insideout-perl/debian/changelog Sat Mar 6 17:26:50 2010
@@ -1,3 +1,9 @@
+libobject-insideout-perl (3.63-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sat, 06 Mar 2010 18:25:54 +0100
+
libobject-insideout-perl (3.58-1) unstable; urgency=low
* Initial Release (Closes: #536134)
Modified: trunk/libobject-insideout-perl/examples/YAPI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/examples/YAPI.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/examples/YAPI.pm (original)
+++ trunk/libobject-insideout-perl/examples/YAPI.pm Sat Mar 6 17:26:50 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
- our $VERSION = '3.58';
+ our $VERSION = '3.63';
#####
#
@@ -22,7 +22,7 @@
$threaded_okay = !$@;
}
- use Object::InsideOut 3.58;
+ use Object::InsideOut 3.63;
# Default progress indicator is a twirling bar
my @yapi :Field
@@ -550,7 +550,7 @@
=head1 SEE ALSO
Annotated POD for Term::YAPI:
-L<http://annocpan.org/~JDHEDDEN/Object-InsideOut-3.58/examples/YAPI.pm>
+L<http://annocpan.org/~JDHEDDEN/Object-InsideOut-3.63/examples/YAPI.pm>
L<Object::InsideOut>, L<threads>, L<Thread::Queue>
Modified: trunk/libobject-insideout-perl/lib/Bundle/Object/InsideOut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Bundle/Object/InsideOut.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Bundle/Object/InsideOut.pm (original)
+++ trunk/libobject-insideout-perl/lib/Bundle/Object/InsideOut.pm Sat Mar 6 17:26:50 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '3.58';
+our $VERSION = '3.63';
$VERSION = eval $VERSION;
1;
@@ -20,7 +20,7 @@
=head1 CONTENTS
-Test::Harness 3.17 - Used for module testing
+Test::Harness 3.21 - Used for module testing
Test::Simple 0.94 - Used for module testing
@@ -30,7 +30,7 @@
Pod::Simple 3.13 - Used by Test::Pod
-Test::Pod 1.40 - Checks POD syntax
+Test::Pod 1.41 - Checks POD syntax
Devel::Symdump 2.08 - Used by Pod::Coverage
@@ -58,9 +58,9 @@
Exception::Class 1.29 - Error handling
-Object::InsideOut 3.58 - Inside-out object support
+Object::InsideOut 3.63 - Inside-out object support
-URI 1.51 - Used by LWP::UserAgent
+URI 1.52 - Used by LWP::UserAgent
HTML::Tagset 3.20 - Used by LWP::UserAgent
@@ -70,7 +70,7 @@
Win32::API 0.59 - Used by Math::Random::MT::Auto (Win XP only)
-Math::Random::MT::Auto 6.14 - Support for :SECURE mode
+Math::Random::MT::Auto 6.15 - Support for :SECURE mode
=head1 DESCRIPTION
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut.pm Sat Mar 6 17:26:50 2010
@@ -5,12 +5,12 @@
use strict;
use warnings;
-our $VERSION = '3.58';
+our $VERSION = '3.63';
$VERSION = eval $VERSION;
-use Object::InsideOut::Exception 3.58;
-use Object::InsideOut::Util 3.58 qw(create_object hash_re is_it make_shared);
-use Object::InsideOut::Metadata 3.58;
+use Object::InsideOut::Exception 3.63;
+use Object::InsideOut::Util 3.63 qw(create_object hash_re is_it make_shared);
+use Object::InsideOut::Metadata 3.63;
require B;
@@ -97,8 +97,8 @@
share => { # Object sharing between threads
cl => {},
- obj => make_shared({}),
ok => $threads::shared::threads_shared,
+ # obj # Tracks TIDs for shared objects
},
# cache # Object initialization activity cache
@@ -790,8 +790,8 @@
}
}
- # If needed, process any thread object sharing flags
if ($GBL{'share'}{'ok'}) {
+ # If needed, process any thread object sharing flags
my $sh_cl = $GBL{'share'}{'cl'};
foreach my $flag_class (keys(%{$sh_cl})) {
# Find the class in any class tree
@@ -824,6 +824,13 @@
}
}
}
+
+ # Set up for shared object tracking
+ if (! exists($GBL{'share'}{'obj'}) &&
+ (($] < 5.008009) || ($threads::shared::VERSION lt '1.15')))
+ {
+ $GBL{'share'}{'obj'} = make_shared({});
+ }
}
# Process field attributes
@@ -1166,9 +1173,9 @@
}
# Process thread-shared objects
- {
+ if (exists($GBL{'share'}{'obj'})) {
my $sh_obj = $GBL{'share'}{'obj'};
- lock($sh_obj) if $GBL{'share'}{'ok'};
+ lock($sh_obj);
# Add thread ID to every object in the thread tracking registry
foreach my $class (keys(%{$sh_obj})) {
@@ -1279,12 +1286,14 @@
threads::shared::share($self);
# Add thread tracking list for this thread-shared object
- my $sh_obj = $GBL{'share'}{'obj'};
- lock($sh_obj) if $GBL{'share'}{'ok'};
- if (exists($$sh_obj{$class})) {
- $$sh_obj{$class}{$$self} = make_shared([ $GBL{'tid'} ]);
- } else {
- $$sh_obj{$class} = make_shared({ $$self => [ $GBL{'tid'} ] });
+ if (exists($GBL{'share'}{'obj'})) {
+ my $sh_obj = $GBL{'share'}{'obj'};
+ lock($sh_obj);
+ if (exists($$sh_obj{$class})) {
+ $$sh_obj{$class}{$$self} = make_shared([ $GBL{'tid'} ]);
+ } else {
+ $$sh_obj{$class} = make_shared({ $$self => [ $GBL{'tid'} ] });
+ }
}
} elsif ($threads::threads) {
@@ -1814,7 +1823,11 @@
# Workaround for Perl's "in cleanup" bug
if ($threads::shared::threads_shared && ! $GBL{'term'}) {
eval {
- my $bug = keys(%{$GBL{'id'}{'obj'}}) + keys(%{$GBL{'id'}{'reuse'}}) + keys(%{$GBL{'share'}{'obj'}});
+ my $bug = keys(%{$GBL{'id'}{'obj'}})
+ + keys(%{$GBL{'id'}{'reuse'}})
+ + ((exists($GBL{'share'}{'obj'}))
+ ? keys(%{$GBL{'share'}{'obj'}})
+ : 0);
};
if ($@) {
$GBL{'term'} = 1;
@@ -1830,7 +1843,7 @@
if ($GBL{'term'}) {
return if ($tid); # Continue only if main thread
- } else {
+ } elsif (exists($GBL{'share'}{'obj'})) {
my $so_cl = $GBL{'share'}{'obj'}{$class};
if (! exists($$so_cl{$$self})) {
warn("ERROR: Attempt to DESTROY object ID $$self of class $class in thread ID $tid twice\n");
@@ -1838,8 +1851,15 @@
}
# Remove thread ID from this object's thread tracking list
+ # NOTE: The threads->object() test was added for the case
+ # where OIO objects are passed via Thead::Queue. I don't
+ # know if this will cause problems with detached threads as
+ # threads->object() returns undef for them. Also, the main
+ # thread (0) is always a valid thread.
lock($so_cl);
- if (@{$$so_cl{$$self}} = grep { $_ != $tid } @{$$so_cl{$$self}}) {
+ if (@{$$so_cl{$$self}} = grep { ($_ != $tid) &&
+ (($_ == 0) || threads->object($_)) }
+ @{$$so_cl{$$self}}) {
return;
}
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut.pod?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut.pod (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut.pod Sat Mar 6 17:26:50 2010
@@ -4,7 +4,7 @@
=head1 VERSION
-This document describes Object::InsideOut version 3.58
+This document describes Object::InsideOut version 3.63
=head1 SYNOPSIS
@@ -3227,7 +3227,7 @@
L<http://www.cpanforum.com/dist/Object-InsideOut>
Annotated POD for Object::InsideOut:
-L<http://annocpan.org/~JDHEDDEN/Object-InsideOut-3.58/lib/Object/InsideOut.pm>
+L<http://annocpan.org/~JDHEDDEN/Object-InsideOut-3.63/lib/Object/InsideOut.pm>
Source repository:
L<http://code.google.com/p/object-insideout/>
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Autoload.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Autoload.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Autoload.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Autoload.pm Sat Mar 6 17:26:50 2010
@@ -172,7 +172,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Chained.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Chained.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Chained.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Chained.pm Sat Mar 6 17:26:50 2010
@@ -181,7 +181,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Cumulative.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Cumulative.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Cumulative.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Cumulative.pm Sat Mar 6 17:26:50 2010
@@ -206,11 +206,11 @@
use strict;
use warnings;
-our $VERSION = '3.58';
+our $VERSION = '3.63';
$VERSION = eval $VERSION;
-use Object::InsideOut 3.58;
-use Object::InsideOut::Metadata 3.58;
+use Object::InsideOut 3.63;
+use Object::InsideOut::Metadata 3.63;
my @VALUES :Field :Arg(VALUES);
my @CLASSES :Field :Arg(CLASSES);
@@ -260,7 +260,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Dump.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Dump.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Dump.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Dump.pm Sat Mar 6 17:26:50 2010
@@ -205,7 +205,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Dynamic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Dynamic.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Dynamic.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Dynamic.pm Sat Mar 6 17:26:50 2010
@@ -178,7 +178,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Exception.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Exception.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Exception.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Exception.pm Sat Mar 6 17:26:50 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '3.58';
+our $VERSION = '3.63';
$VERSION = eval $VERSION;
# Exceptions generated by this module
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Foreign.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Foreign.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Foreign.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Foreign.pm Sat Mar 6 17:26:50 2010
@@ -270,7 +270,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Metadata.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Metadata.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Metadata.pm Sat Mar 6 17:26:50 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '3.58';
+our $VERSION = '3.63';
$VERSION = eval $VERSION;
# Stores method metadata
@@ -99,7 +99,7 @@
### Object Interface ###
-use Object::InsideOut 3.58;
+use Object::InsideOut 3.63;
my @CLASSES :Field;
my @FOREIGN :Field;
@@ -268,7 +268,7 @@
=head1 VERSION
-This document describes Object::InsideOut::Metadata version 3.58
+This document describes Object::InsideOut::Metadata version 3.63
=head1 SYNOPSIS
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Overload.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Overload.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Overload.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Overload.pm Sat Mar 6 17:26:50 2010
@@ -83,7 +83,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Secure.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Secure.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Secure.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Secure.pm Sat Mar 6 17:26:50 2010
@@ -2,10 +2,10 @@
use strict;
use warnings;
- our $VERSION = '3.58';
+ our $VERSION = '3.63';
$VERSION = eval $VERSION;
- use Object::InsideOut 3.58 ':hash_only';
+ use Object::InsideOut 3.63 ':hash_only';
# Holds used IDs
my %used :Field = ( 0 => undef );
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Universal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Universal.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Universal.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Universal.pm Sat Mar 6 17:26:50 2010
@@ -211,7 +211,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/Util.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/Util.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/Util.pm Sat Mar 6 17:26:50 2010
@@ -5,10 +5,10 @@
use strict;
use warnings;
-our $VERSION = '3.58';
+our $VERSION = '3.63';
$VERSION = eval $VERSION;
-use Object::InsideOut::Metadata 3.58;
+use Object::InsideOut::Metadata 3.63;
### Module Initialization ###
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/attributes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/attributes.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/attributes.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/attributes.pm Sat Mar 6 17:26:50 2010
@@ -79,7 +79,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
Modified: trunk/libobject-insideout-perl/lib/Object/InsideOut/lvalue.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-insideout-perl/lib/Object/InsideOut/lvalue.pm?rev=53721&op=diff
==============================================================================
--- trunk/libobject-insideout-perl/lib/Object/InsideOut/lvalue.pm (original)
+++ trunk/libobject-insideout-perl/lib/Object/InsideOut/lvalue.pm Sat Mar 6 17:26:50 2010
@@ -157,7 +157,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.58)
+($Object::InsideOut::VERSION == 3.63)
or die("Version mismatch\n");
# EOF
More information about the Pkg-perl-cvs-commits
mailing list