Changeset 35957

Timestamp:

11/21/09 13:52:08 (3 years ago)

Author:

kawa0117

Message:

Jcode tr.t 'our' is not supported on 5.005

Files:

• lang/perl/Jcode/trunk/t/tr.t (modified) (1 diff)

lang/perl/Jcode/trunk/t/tr.t

@@ -56 +56 @@
 
 local($SIG{__WARN__}) = sub{}; # suppress eval error
-our $T_FLAG = 0;
+use vars qw($T_FLAG);
+$T_FLAG = 0;
 my $p = __PACKAGE__;
 my $j = Jcode->new('a');