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