r69017 - in /branches/upstream/libje-perl/current: ./ lib/ lib/JE/ lib/JE/Object/ lib/JE/Object/Error/ lib/JavaScript/ t/
chrisb at users.alioth.debian.org
chrisb at users.alioth.debian.org
Sat Feb 19 00:00:10 UTC 2011
Author: chrisb
Date: Fri Feb 18 23:59:58 2011
New Revision: 69017
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69017
Log:
[svn-upgrade] new version libje-perl (0.055)
Modified:
branches/upstream/libje-perl/current/Changes
branches/upstream/libje-perl/current/META.yml
branches/upstream/libje-perl/current/README
branches/upstream/libje-perl/current/lib/JE.pm
branches/upstream/libje-perl/current/lib/JE/Boolean.pm
branches/upstream/libje-perl/current/lib/JE/Code.pm
branches/upstream/libje-perl/current/lib/JE/LValue.pm
branches/upstream/libje-perl/current/lib/JE/Null.pm
branches/upstream/libje-perl/current/lib/JE/Number.pm
branches/upstream/libje-perl/current/lib/JE/Object.pm
branches/upstream/libje-perl/current/lib/JE/Object/Array.pm
branches/upstream/libje-perl/current/lib/JE/Object/Boolean.pm
branches/upstream/libje-perl/current/lib/JE/Object/Date.pm
branches/upstream/libje-perl/current/lib/JE/Object/Error.pm
branches/upstream/libje-perl/current/lib/JE/Object/Error/RangeError.pm
branches/upstream/libje-perl/current/lib/JE/Object/Error/ReferenceError.pm
branches/upstream/libje-perl/current/lib/JE/Object/Error/SyntaxError.pm
branches/upstream/libje-perl/current/lib/JE/Object/Error/TypeError.pm
branches/upstream/libje-perl/current/lib/JE/Object/Error/URIError.pm
branches/upstream/libje-perl/current/lib/JE/Object/Function.pm
branches/upstream/libje-perl/current/lib/JE/Object/Math.pm
branches/upstream/libje-perl/current/lib/JE/Object/Number.pm
branches/upstream/libje-perl/current/lib/JE/Object/Proxy.pm
branches/upstream/libje-perl/current/lib/JE/Object/RegExp.pm
branches/upstream/libje-perl/current/lib/JE/Object/String.pm
branches/upstream/libje-perl/current/lib/JE/Parser.pm
branches/upstream/libje-perl/current/lib/JE/Scope.pm
branches/upstream/libje-perl/current/lib/JE/String.pm
branches/upstream/libje-perl/current/lib/JE/Undefined.pm
branches/upstream/libje-perl/current/lib/JE/_FieldHash.pm
branches/upstream/libje-perl/current/lib/JavaScript/Engine.pm
branches/upstream/libje-perl/current/t/misc.t
Modified: branches/upstream/libje-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/Changes?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/Changes (original)
+++ branches/upstream/libje-perl/current/Changes Fri Feb 18 23:59:58 2011
@@ -1,4 +1,14 @@
Revision history for JE
+
+0.055 13 January, 2011
+ Some pod fixes from Damyan Ivanov (RT #64015). (Thank you.)
+ One bug fix: âthrow new Errorâ and â$@ = bless[],'JE::Scope'â
+ will no longer cause a crash when *@ has been localised.
+
+0.054 30 January, 2011
+ Bug fix: JE::Object::Errors thrown from within store handlers
+ now propagate instead of turning into âCannot assign to a non-
+ lvalueâ message. (Thanks to Chia-liang Kao for fixing this.)
0.053 12 December, 2010
Bug fixes:
Modified: branches/upstream/libje-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/META.yml?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/META.yml (original)
+++ branches/upstream/libje-perl/current/META.yml Fri Feb 18 23:59:58 2011
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: JE
-version: 0.053
+version: 0.055
version_from: lib/JE.pm
installdirs: site
requires:
Modified: branches/upstream/libje-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/README?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/README (original)
+++ branches/upstream/libje-perl/current/README Fri Feb 18 23:59:58 2011
@@ -1,4 +1,4 @@
-JE, version 0.053
+JE, version 0.055
JE is a pure-Perl ECMAScript (JavaScript) engine. Here are some of its
advantages:
@@ -26,25 +26,32 @@
RECENT CHANGES
+Unfortunately, I made the mistake of making the previous release ver-
+sion 0.54 instead of 0.054. I have reset the version on CPAN, so 0.055
+is the current version, but if anyone has already upgrade to 0.054,
+future upgrades will not work from the CPAN shell without âforceâ.
+Hopefully two weeks was short enough an interval. If this causes prob-
+lems for anyone, please let me know and I will increase the version to
+.541 or something similar.
+
+0.055
+-----
+Some pod fixes from Damyan Ivanov (RT #64015). (Thank you.)
+One bug fix: âthrow new Errorâ and â$@ = bless[],'JE::Scope'â will no
+longer cause a crash when *@ has been localised.
+
+0.054
+-----
+JE::Object::Errors thrown from within store handlers now propagate
+instead of turning into âCannot assign to a non-lvalueâ messages.
+(Thanks to Chia-liang Kao for fixing this!)
+
0.053
-----
⢠The regular expression module was relying on a bug in perl that is
fixed in 5.13.8.
⢠The match and search methods of strings now work if no regular
expressions have been used yet. (A ârequireâ was missing.)
-
-0.052
------
-Bug fix: The return value of JE::LValue->can can now be used and will
-delegate properly to the referent.
-Test fix: t/parse08-regexps.t has been fixed to work with the new
-(?^u:...) stringification of internally-UTF8 regular expressions in
-perl 5.13.8.
-
-0.051
------
-Bug fix: On DragonFly BSD, exp(Infinity) and exp(-Infinity) now cor-
-rectly return Infinity and 0, respectively, instead of NaN (I hope).
TO DO
@@ -111,25 +118,18 @@
ACKNOWLEDGEMENTS
-Thanks to Kevin Cameron [ kevin cameron com ] for his contributions,
+Thanks to Max Maischein, Kevin Cameron, Chia-liang Kao and Damyan Iva-
+nov for their contributions,
-to Max Maischein [ webmaster corion net ] for letting me use his
-tests,
-
-to Andy Armstrong [ andy hexten net ],
- Yair Lenga [ yair lenga gmail com ],
- Alex Robinson [ alex solidgoldpig com ],
- Christian Forster [ boronk boronk de ],
- Imre Rad [ radimre freemail hu ] and
- Craig MacKenna [ craig animalhead com ]
-for their suggestions,
+to Andy Armstrong, Yair Lenga, Alex Robinson, Christian Forster, Imre
+Rad and Craig MacKenna for their suggestions,
and to the CPAN Testers for their helpful reports.
COPYRIGHT AND LICENCE
-Copyright (C) 2007-10 Father Chrysostomos
+Copyright (C) 2007-11 Father Chrysostomos
This program is free software; you may redistribute it and/or modify
it under the same terms as perl.
Modified: branches/upstream/libje-perl/current/lib/JE.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE.pm Fri Feb 18 23:59:58 2011
@@ -11,7 +11,7 @@
use strict;
use warnings; no warnings 'utf8';
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use Carp 'croak';
use JE::Code 'add_line_number';
@@ -35,7 +35,7 @@
=head1 VERSION
-Version 0.053 (alpha release)
+Version 0.055 (alpha release)
The API is still subject to change. If you have the time and the interest,
please experiment with this module (or even lend a hand :-).
@@ -1000,6 +1000,8 @@
(This method can create a potential security hole. Please see L</BUGS>,
below.)
+
+=back
=head2 Synopsis
@@ -2030,7 +2032,7 @@
return # nothing
}
-
+=over
=item $j->new_parser
@@ -2121,6 +2123,8 @@
SyntaxError, an implementation may provide other behaviour instead. Here
are some instances of this:
+=over
+
=item *
C<return> may be used outside a function. It's like an 'exit' statement,
@@ -2391,7 +2395,7 @@
=head1 AUTHOR, COPYRIGHT & LICENSE
-Copyright (C) 2007-10 Father Chrysostomos <sprout [at] cpan
+Copyright (C) 2007-11 Father Chrysostomos <sprout [at] cpan
[dot] org>
This program is free software; you may redistribute it and/or modify
@@ -2404,20 +2408,12 @@
Some of the
-Thanks to Kevin Cameron S<< [ kevinE<nbsp>E<nbsp>cameron net ] >> for his
+Thanks to Max Maischein, Kevin Cameron, Chia-liang Kao and Damyan Ivanov
+for their
contributions,
-to Max Maischein S<< [ webmasterE<nbsp>E<nbsp>corion net ] >> for
-letting
-me use
-his tests,
-
-to Andy Armstrong S<< [ andyE<nbsp>E<nbsp>hexten net ] >>, Yair Lenga
-S<< [ yair lengaE<nbsp>E<nbsp>gmail com ] >>, Alex Robinson
-S<< [ alexE<nbsp>E<nbsp>solidgoldpig com ] >>, Christian Forster
-S<< [ boronkE<nbsp>E<nbsp>boronk de ] >>, Imre Rad
-S<< [ radimreE<nbsp>E<nbsp>freemail hu ] >> and Craig Mackenna
-S<< [ craigE<nbsp>E<nbsp>animalhead com ] >>
+to Andy Armstrong, Yair Lenga, Alex Robinson, Christian Forster, Imre Rad
+and Craig Mackenna
for their suggestions,
and to the CPAN Testers for their helpful reports.
Modified: branches/upstream/libje-perl/current/lib/JE/Boolean.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Boolean.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Boolean.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Boolean.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Boolean;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Code.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Code.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Code.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Code.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Code;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
use warnings; no warnings 'utf8';
@@ -284,7 +284,7 @@
package JE::Code::Statement; # This does not cover expression statements.
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use subs qw'_eval_term';
use List::Util 'first';
@@ -698,7 +698,7 @@
package JE::Code::Expression;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
# B::Deparse showed me how to get these values.
use constant nan => sin 9**9**9;
@@ -1198,10 +1198,13 @@
T and tainted $taint and $val->can('taint')
and $val = taint $val $taint;
eval { (pop @terms)->set($val) };
- $@ and die new JE::Object::Error::ReferenceError
- $global, add_line_number "Cannot assign to a non-lvalue";
+ if (my $err = $@) {
+ die $err if UNIVERSAL::isa($err, 'JE::Object::Error');
+ die new JE::Object::Error::ReferenceError
+ $global, add_line_number "Cannot assign to a non-lvalue";
+ }
# ~~~ This needs to check whether it was an error
- # other than 'Can't locate objec mtehod "set"
+ # other than 'Can't locate object method "set"
# since store handlers can thrown other errors.
}
@@ -1393,7 +1396,7 @@
package JE::Code::Subscript;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
sub str_val {
my $val = (my $self = shift)->[1];
@@ -1405,7 +1408,7 @@
package JE::Code::Arguments;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
sub list {
my $self = shift;
Modified: branches/upstream/libje-perl/current/lib/JE/LValue.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/LValue.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/LValue.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/LValue.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::LValue;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
use warnings; no warnings 'utf8';
Modified: branches/upstream/libje-perl/current/lib/JE/Null.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Null.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Null.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Null.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Null;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Number.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Number.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Number.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Number.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Number;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
use warnings; no warnings 'utf8';
Modified: branches/upstream/libje-perl/current/lib/JE/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object.pm Fri Feb 18 23:59:58 2011
@@ -4,7 +4,7 @@
sub evall { my $global = shift; my $r = eval 'local *_;' . shift;
$@ and die; $r }
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
use warnings;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Array.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Array.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Array.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Array.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Array;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
use warnings; no warnings 'utf8';
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Boolean.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Boolean.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Boolean.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Boolean.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Boolean;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Date.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Date.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Date.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Date.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Date;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Error.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Error.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Error.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Error.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Error;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Error/RangeError.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Error/RangeError.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Error/RangeError.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Error/RangeError.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Error::RangeError;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Error/ReferenceError.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Error/ReferenceError.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Error/ReferenceError.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Error/ReferenceError.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Error::ReferenceError;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Error/SyntaxError.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Error/SyntaxError.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Error/SyntaxError.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Error/SyntaxError.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Error::SyntaxError;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Error/TypeError.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Error/TypeError.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Error/TypeError.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Error/TypeError.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Error::TypeError;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Error/URIError.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Error/URIError.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Error/URIError.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Error/URIError.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Error::URIError;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Function.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Function.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Function.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Function.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Function;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
@@ -697,7 +697,7 @@
package JE::Object::Function::Call;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
sub new {
# See sub JE::Object::Function::_init_sub for the usage.
@@ -784,7 +784,7 @@
package JE::Object::Function::Arguments;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
our @ISA = 'JE::Object';
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Math.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Math.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Math.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Math.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Math;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Number.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Number.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Number.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Number.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Number;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/Proxy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/Proxy.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/Proxy.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/Proxy.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::Proxy;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
use warnings; no warnings 'utf8';
@@ -169,7 +169,7 @@
package JE::Object::Proxy::Array; # so this extra stuff doesn't slow down
-our $VERSION = '0.053'; # 'normal' usage
+our $VERSION = '0.055'; # 'normal' usage
our @ISA = 'JE::Object::Proxy';
require JE::Number;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/RegExp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/RegExp.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/RegExp.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/RegExp.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::RegExp;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Object/String.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Object/String.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Object/String.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Object/String.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Object::String;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Parser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Parser.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Parser.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Parser.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Parser;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict; # :-(
use warnings;# :-(
Modified: branches/upstream/libje-perl/current/lib/JE/Scope.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Scope.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Scope.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Scope.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Scope;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
use warnings; no warnings 'utf8';
@@ -58,11 +58,10 @@
sub AUTOLOAD { # This delegates the method to the global object
my($method) = $AUTOLOAD =~ /([^:]+)\z/;
- # deal with DESTROY, etc. # ~~~ Am I doing the right
- # thing?
+ # deal with various ALLCAPS names
if($method =~ /^[A-Z]+\z/) {
substr($method,0,0) = 'SUPER::';
- local $@;
+ local *@;
return eval { shift->$method(@_) };
}
@@ -70,6 +69,8 @@
# to remove AUTOLOAD from
# the call stack.
}
+
+sub DESTROY {}
1;
@@ -122,6 +123,8 @@
stack) that is a call object, or C<< $scope->[0] >> if no call object is
found.
+=back
+
=head1 CONSTRUCTOR
None. Just bless an array reference. You should not need to do
@@ -130,12 +133,16 @@
=head1 SEE ALSO
+=over
+
=item L<JE>
=item L<JE::LValue>
=item L<JE::Object::Function>
+=back
+
=cut
Modified: branches/upstream/libje-perl/current/lib/JE/String.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/String.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/String.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/String.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::String;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JE/Undefined.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/Undefined.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/Undefined.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/Undefined.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::Undefined;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
use warnings;
Modified: branches/upstream/libje-perl/current/lib/JE/_FieldHash.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JE/_FieldHash.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JE/_FieldHash.pm (original)
+++ branches/upstream/libje-perl/current/lib/JE/_FieldHash.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JE::_FieldHash;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use strict;
Modified: branches/upstream/libje-perl/current/lib/JavaScript/Engine.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/lib/JavaScript/Engine.pm?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/lib/JavaScript/Engine.pm (original)
+++ branches/upstream/libje-perl/current/lib/JavaScript/Engine.pm Fri Feb 18 23:59:58 2011
@@ -1,6 +1,6 @@
package JavaScript::Engine;
-our $VERSION = '0.053';
+our $VERSION = '0.055';
use JE;
Modified: branches/upstream/libje-perl/current/t/misc.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libje-perl/current/t/misc.t?rev=69017&op=diff
==============================================================================
--- branches/upstream/libje-perl/current/t/misc.t (original)
+++ branches/upstream/libje-perl/current/t/misc.t Fri Feb 18 23:59:58 2011
@@ -7,7 +7,7 @@
BEGIN { require './t/test.pl' }
-use Test::More tests => 9;
+use Test::More tests => 10;
use strict;
use utf8;
@@ -59,3 +59,12 @@
decodeURIComponent;
}
+#--------------------------------------------------------------------#
+# Test 10: Throwing new Errors while *@ is localised
+# This is actually a perl bug, which we now work around in version 0.055.
+
+{
+ local *@;
+ new JE ->eval('throw new Error');
+} # <-- It used to crash when exiting this scope.
+ok(1, "throw new Error works when *@ is localised");
More information about the Pkg-perl-cvs-commits
mailing list