Author: coke
Date: Mon Jan 29 20:30:52 2007
New Revision: 16836
Added:
trunk/languages/perl5/ (props changed)
trunk/languages/perl5/README
trunk/languages/perl5/config/
trunk/languages/perl5/config/makefiles/
trunk/languages/perl5/config/makefiles/root.in
trunk/languages/perl5/docs/
trunk/languages/perl5/docs/perlarray.pod
- copied unchanged from r16762, /trunk/docs/pmc/perlarray.pod
trunk/languages/perl5/docs/perlhash.pod
- copied unchanged from r16762, /trunk/docs/pmc/perlhash.pod
trunk/languages/perl5/docs/perlstring.pod
- copied unchanged from r16762, /trunk/docs/pmc/perlstring.pod
trunk/languages/perl5/src/
trunk/languages/perl5/src/pmc/ (props changed)
trunk/languages/perl5/src/pmc/perlarray.pmc
- copied unchanged from r16762, /trunk/src/dynpmc/perlarray.pmc
trunk/languages/perl5/src/pmc/perlenv.pmc
- copied unchanged from r16762, /trunk/src/dynpmc/perlenv.pmc
trunk/languages/perl5/src/pmc/perlhash.pmc
- copied unchanged from r16762, /trunk/src/dynpmc/perlhash.pmc
trunk/languages/perl5/src/pmc/perlint.pmc
- copied unchanged from r16762, /trunk/src/dynpmc/perlint.pmc
trunk/languages/perl5/src/pmc/perlnum.pmc
- copied unchanged from r16762, /trunk/src/dynpmc/perlnum.pmc
trunk/languages/perl5/src/pmc/perlscalar.pmc
- copied unchanged from r16762, /trunk/src/dynpmc/perlscalar.pmc
trunk/languages/perl5/src/pmc/perlstring.pmc
- copied unchanged from r16762, /trunk/src/dynpmc/perlstring.pmc
trunk/languages/perl5/src/pmc/perlundef.pmc
- copied unchanged from r16762, /trunk/src/dynpmc/perlundef.pmc
trunk/languages/perl5/t/
trunk/languages/perl5/t/perlarray.t
- copied, changed from r16762, /trunk/t/dynpmc/perlarray.t
trunk/languages/perl5/t/perlenv.t
- copied, changed from r16762, /trunk/t/dynpmc/perlenv.t
trunk/languages/perl5/t/perlhash.t
- copied, changed from r16762, /trunk/t/dynpmc/perlhash.t
trunk/languages/perl5/t/perlint.t
- copied, changed from r16762, /trunk/t/dynpmc/perlint.t
trunk/languages/perl5/t/perlnum.t
- copied, changed from r16762, /trunk/t/dynpmc/perlnum.t
trunk/languages/perl5/t/perlscalar.t
- copied, changed from r16762, /trunk/t/dynpmc/perlscalar.t
trunk/languages/perl5/t/perlstring.t
- copied, changed from r16762, /trunk/t/dynpmc/perlstring.t
trunk/languages/perl5/t/perlundef.t
- copied, changed from r16762, /trunk/t/dynpmc/perlundef.t
trunk/languages/perl5/t/sparse_perlarray.t
- copied, changed from r16762, /trunk/t/dynpmc/sparse_perlarray.t
Removed:
trunk/docs/pmc/perlarray.pod
trunk/docs/pmc/perlhash.pod
trunk/docs/pmc/perlstring.pod
trunk/src/dynpmc/perlarray.pmc
trunk/src/dynpmc/perlenv.pmc
trunk/src/dynpmc/perlhash.pmc
trunk/src/dynpmc/perlint.pmc
trunk/src/dynpmc/perlnum.pmc
trunk/src/dynpmc/perlscalar.pmc
trunk/src/dynpmc/perlstring.pmc
trunk/src/dynpmc/perlundef.pmc
trunk/t/dynpmc/perlarray.t
trunk/t/dynpmc/perlenv.t
trunk/t/dynpmc/perlhash.t
trunk/t/dynpmc/perlint.t
trunk/t/dynpmc/perlnum.t
trunk/t/dynpmc/perlscalar.t
trunk/t/dynpmc/perlstring.t
trunk/t/dynpmc/perlundef.t
trunk/t/dynpmc/sparse_perlarray.t
Modified:
trunk/DEPRECATED.pod
trunk/MANIFEST
trunk/config/gen/languages.pm
trunk/config/gen/makefiles/dynpmc.in
trunk/config/gen/makefiles/languages.in
trunk/languages/LANGUAGES.STATUS.pod
trunk/t/pmc/mmd.t
trunk/t/pmc/sub.t
trunk/t/pmc/threads.t
Log:
Resolve ticket #41238 ([TODO] Perl PMCs)
- move all Perl* PMCs (code, docs) into languages/perl5
- move all tests of Perl* PMCs into languages/perl5, excepting:
- those which exercise core features (ala via MMD) - those are commented
out pending a non-perl replacement test.
- add a makefile for languages/perl5 to build the pmcs and run the tests.
- add perl5 to the default test harness.
Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod (original)
+++ trunk/DEPRECATED.pod Mon Jan 29 20:30:52 2007
@@ -53,14 +53,4 @@
print $S0
substr $P0, 1, 2, "x"
-=item Perl PMCs [#41238]
-
-The dynamic PMCS PerlString, PerlUndef, etc. were originally created with an
-eye towards being used in Perl6 development, and as the first set of full
-featured PMCs. However, Perl6 development is not going to be using them, and
-the core PMCs (String, Undef, Integer ...) have replaced them for usage.
-
-These PMCs will be moved to languages/perl5 after the next release. At some
-point after that they may be removed the repository altogether.
-
=back
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Mon Jan 29 20:30:52 2007
@@ -389,9 +389,6 @@
docs/pmc.pod [main]doc
docs/pmc/array.pod [main]doc
docs/pmc/iterator.pod [main]doc
-docs/pmc/perlarray.pod [main]doc
-docs/pmc/perlhash.pod [main]doc
-docs/pmc/perlstring.pod [main]doc
docs/pmc/struct.pod [main]doc
docs/pmc/subs.pod [main]doc
docs/porting_intro.pod [main]doc
@@ -2304,14 +2301,6 @@
src/dynpmc/main.pasm []
src/dynpmc/match.pmc []
src/dynpmc/matchrange.pmc []
-src/dynpmc/perlarray.pmc []
-src/dynpmc/perlenv.pmc []
-src/dynpmc/perlhash.pmc []
-src/dynpmc/perlint.pmc []
-src/dynpmc/perlnum.pmc []
-src/dynpmc/perlscalar.pmc []
-src/dynpmc/perlstring.pmc []
-src/dynpmc/perlundef.pmc []
src/dynpmc/quantumreg.pmc []
src/dynpmc/rotest.pmc []
src/dynpmc/subproxy.pmc []
@@ -2630,16 +2619,7 @@
t/dynpmc/dynlexpad.t []
t/dynpmc/foo.t []
t/dynpmc/gdbmhash.t []
-t/dynpmc/perlarray.t []
-t/dynpmc/perlenv.t []
-t/dynpmc/perlhash.t []
-t/dynpmc/perlint.t []
-t/dynpmc/perlnum.t []
-t/dynpmc/perlscalar.t []
-t/dynpmc/perlstring.t []
-t/dynpmc/perlundef.t []
t/dynpmc/quantumreg.t []
-t/dynpmc/sparse_perlarray.t []
t/dynpmc/sub.t []
t/dynpmc/subclass_with_pir_method.t []
t/examples/japh.t []
Modified: trunk/config/gen/languages.pm
==============================================================================
--- trunk/config/gen/languages.pm (original)
+++ trunk/config/gen/languages.pm Mon Jan 29 20:30:52 2007
@@ -30,8 +30,8 @@
my @languages = qw{
APL amber abc befunge bf cardinal c99 cola ecmascript forth HQ9plus
- jako lisp lua m4 ook parrot_compiler perl6 pheme PIR plumhead pugs
punie
- regex scheme tap urm WMLScript Zcode
+ jako lisp lua m4 ook parrot_compiler perl5 perl6 pheme PIR plumhead
+ pugs punie regex scheme tap urm WMLScript Zcode
};
foreach my $language (@languages) {
Modified: trunk/config/gen/makefiles/dynpmc.in
==============================================================================
--- trunk/config/gen/makefiles/dynpmc.in (original)
+++ trunk/config/gen/makefiles/dynpmc.in Mon Jan 29 20:30:52 2007
@@ -19,37 +19,8 @@
#CONDITIONED_LINE(has_gdbm):gdbmhash \
match \
matchrange \
- perlarray perlhash perlnum perlstring perlenv perlint perlscalar perlundef \
subproxy
-DISABLED_PMCS = \
- pybuiltin \
- pyclass \
- pyobject \
- pyboolean \
- pycomplex \
- pydict \
- pyexception \
- pyfloat \
- pyfunc \
- pyboundmeth \
- pyboundcall \
- pynci \
- pystaticmeth \
- pygen \
- pyint \
- pylist \
- pylong \
- pymodule \
- pynone \
- pytype \
- pyslice \
- pystring \
- pytuple \
- pyproxytype \
- pyproxyclass \
- pyiter
-
BUILD = $(PERL) @build_dir@/tools/build/dynpmc.pl
all :
Modified: trunk/config/gen/makefiles/languages.in
==============================================================================
--- trunk/config/gen/makefiles/languages.in (original)
+++ trunk/config/gen/makefiles/languages.in Mon Jan 29 20:30:52 2007
@@ -29,6 +29,7 @@
m4 \
ook \
parrot_compiler \
+ perl5 \
perl6 \
pheme \
PIR \
Modified: trunk/languages/LANGUAGES.STATUS.pod
==============================================================================
--- trunk/languages/LANGUAGES.STATUS.pod (original)
+++ trunk/languages/LANGUAGES.STATUS.pod Mon Jan 29 20:30:52 2007
@@ -763,6 +763,20 @@
=back
+=head2 Perl 5
+
+=over 4
+
+=item Description
+
+Primarily a repository for some perl5-specific functionality that was
+heavily used in early parrot development. This code is not slated for use
+with the Perl 6 implementation, and core parrot PMCs exist that provide
+much of the functionality here.
+
+This directory may be removed in a future release.
+
+=back
=head2 Perl 6 parser/compiler
Added: trunk/languages/perl5/README
==============================================================================
--- (empty file)
+++ trunk/languages/perl5/README Mon Jan 29 20:30:52 2007
@@ -0,0 +1,2 @@
+This directory is a placeholder for various bits of code (mainly the old Perl*
+pmcs). There is no perl5 implementation.
Added: trunk/languages/perl5/config/makefiles/root.in
==============================================================================
--- (empty file)
+++ trunk/languages/perl5/config/makefiles/root.in Mon Jan 29 20:30:52 2007
@@ -0,0 +1,61 @@
+RM_F = @rm_f@
+PERL = @perl@
+PARROT = ../../[EMAIL PROTECTED]@
+
+PMCBUILD = $(PERL) @build_dir@/tools/build/dynpmc.pl
+DESTDIR = @build_dir@/runtime/parrot/dynext
+O = @o@
+PMCDIR = src/pmc
+LOAD_EXT = @load_ext@
+
+CC_INC = @cc_inc@
+CC_SHARED = @cc_shared@
+CFLAGS = $(CC_INC) @ccflags@ @cc_debug@ @ccwarn@ @cc_hasjit@ @cg_flag@
@gc_flag@ $(CC_SHARED)
+CC = @cc@
+
+PMCS = \
+ perlarray \
+ perlhash \
+ perlnum \
+ perlstring \
+ perlenv \
+ perlint \
+ perlscalar \
+ perlundef
+
+all: pmcs
+
+pmcs:
+ @cd $(PMCDIR) && $(PMCBUILD) generate $(PMCS)
+ @cd $(PMCDIR) && $(PMCBUILD) compile $(PMCS)
+ @cd $(PMCDIR) && $(PMCBUILD) linklibs $(PMCS)
+ @cd $(PMCDIR) && $(PMCBUILD) copy "--destination=$(DESTDIR)" $(PMCS)
+
+# THIS WAS COPIED FROM THE ROOT MAKEFILE
+# Passing an empty argument in @ARGV to cc_flags.pl to indicate where extra -Is
+# (etc) should go. Otherwise it will insert them after the first space, which
+# makes life go horribly wrong if $(CC) contains spaces but can't have -I
+# arguments (etc) injected in the middle.
+# There is probably a better way to do this, but I can't work it out right now.
+.c$(O) :
+ @$(PERL) ../../tools/dev/cc_flags.pl ../../CFLAGS $(CC) "" $(CFLAGS)
[EMAIL PROTECTED]@@[EMAIL PROTECTED] @[EMAIL PROTECTED]@ -c $<
+
+test: pmcs
+ prove -r t
+
+CLEANERS = \
+"$(OPSDIR)/*.c" \
+"$(OPSDIR)/*.h" \
+"$(OPSDIR)/*$(O)" \
+"$(OPSDIR)/*.bundle" \
+"$(OPSDIR)/*.exp" \
+"$(OPSDIR)/*.ilk" \
+"$(OPSDIR)/*.lib" \
+"$(OPSDIR)/*.pdb"
+
+clean:
+ $(RM_F) $(CLEANERS)
+
+distclean: clean
+ $(RM_F) Makefile
+
Copied: trunk/languages/perl5/t/perlarray.t (from r16762,
/trunk/t/dynpmc/perlarray.t)
==============================================================================
--- /trunk/t/dynpmc/perlarray.t (original)
+++ trunk/languages/perl5/t/perlarray.t Mon Jan 29 20:30:52 2007
@@ -11,11 +11,11 @@
=head1 NAME
-t/dynpmc/perlarray.t - testing the PerlArray PMC
+t/perlarray.t - testing the PerlArray PMC
=head1 SYNOPSIS
- % prove t/dynpmc/perlarray.t
+ % prove t/perlarray.t
=head1 DESCRIPTION
Copied: trunk/languages/perl5/t/perlenv.t (from r16762,
/trunk/t/dynpmc/perlenv.t)
==============================================================================
--- /trunk/t/dynpmc/perlenv.t (original)
+++ trunk/languages/perl5/t/perlenv.t Mon Jan 29 20:30:52 2007
@@ -11,12 +11,12 @@
=head1 NAME
-t/dynpmc/perlenv.t - test the PerlEnv PMC
+t/perlenv.t - test the PerlEnv PMC
=head1 SYNOPSIS
- % prove t/dynpmc/perlenv.t
+ % prove t/perlenv.t
=head1 DESCRIPTION
Copied: trunk/languages/perl5/t/perlhash.t (from r16762,
/trunk/t/dynpmc/perlhash.t)
==============================================================================
--- /trunk/t/dynpmc/perlhash.t (original)
+++ trunk/languages/perl5/t/perlhash.t Mon Jan 29 20:30:52 2007
@@ -11,11 +11,11 @@
=head1 NAME
-t/dynpmc/perlhash.t - testing the PerlHash PMC
+t/perlhash.t - testing the PerlHash PMC
=head1 SYNOPSIS
- % prove t/dynpmc/perlhash.t
+ % prove t/perlhash.t
=head1 DESCRIPTION
Copied: trunk/languages/perl5/t/perlint.t (from r16762,
/trunk/t/dynpmc/perlint.t)
==============================================================================
--- /trunk/t/dynpmc/perlint.t (original)
+++ trunk/languages/perl5/t/perlint.t Mon Jan 29 20:30:52 2007
@@ -12,11 +12,11 @@
=head1 NAME
-t/dynpmc/perlint.t - Perl Integers
+t/perlint.t - Perl Integers
=head1 SYNOPSIS
- % prove t/dynpmc/perlint.t
+ % prove t/perlint.t
=head1 DESCRIPTION
Copied: trunk/languages/perl5/t/perlnum.t (from r16762,
/trunk/t/dynpmc/perlnum.t)
==============================================================================
--- /trunk/t/dynpmc/perlnum.t (original)
+++ trunk/languages/perl5/t/perlnum.t Mon Jan 29 20:30:52 2007
@@ -11,11 +11,11 @@
=head1 NAME
-t/dynpmc/perlnum.t - Test the Perl Number PMC
+t/perlnum.t - Test the Perl Number PMC
=head1 SYNOPSIS
- % prove t/dynpmc/perlnum.t
+ % prove t/perlnum.t
=head1 DESCRIPTION
Copied: trunk/languages/perl5/t/perlscalar.t (from r16762,
/trunk/t/dynpmc/perlscalar.t)
==============================================================================
--- /trunk/t/dynpmc/perlscalar.t (original)
+++ trunk/languages/perl5/t/perlscalar.t Mon Jan 29 20:30:52 2007
@@ -11,11 +11,11 @@
=head1 NAME
-t/dynpmc/perlscalar.t - test Perl non-container PMCs
+t/perlscalar.t - test Perl non-container PMCs
=head1 SYNOPSIS
- % prove t/dynpmc/perlscalar.t
+ % prove t/perlscalar.t
=head1 DESCRIPTION
Copied: trunk/languages/perl5/t/perlstring.t (from r16762,
/trunk/t/dynpmc/perlstring.t)
==============================================================================
--- /trunk/t/dynpmc/perlstring.t (original)
+++ trunk/languages/perl5/t/perlstring.t Mon Jan 29 20:30:52 2007
@@ -11,11 +11,11 @@
=head1 NAME
-t/dynpmc/perlstring.t - Perl Strings
+t/perlstring.t - Perl Strings
=head1 SYNOPSIS
- % prove t/dynpmc/perlstring.t
+ % prove t/perlstring.t
=head1 DESCRIPTION
Copied: trunk/languages/perl5/t/perlundef.t (from r16762,
/trunk/t/dynpmc/perlundef.t)
==============================================================================
--- /trunk/t/dynpmc/perlundef.t (original)
+++ trunk/languages/perl5/t/perlundef.t Mon Jan 29 20:30:52 2007
@@ -11,11 +11,11 @@
=head1 NAME
-t/dynpmc/perlundef.t - testing the PerlUndef PMC
+t/perlundef.t - testing the PerlUndef PMC
=head1 SYNOPSIS
- % prove t/dynpmc/perlundef.t
+ % prove t/perlundef.t
=head1 DESCRIPTION
Copied: trunk/languages/perl5/t/sparse_perlarray.t (from r16762,
/trunk/t/dynpmc/sparse_perlarray.t)
==============================================================================
--- /trunk/t/dynpmc/sparse_perlarray.t (original)
+++ trunk/languages/perl5/t/sparse_perlarray.t Mon Jan 29 20:30:52 2007
@@ -11,11 +11,11 @@
=head1 NAME
-t/dynpmc/sparse_perlarray.t - testing sparse arrays using the PerlArray PMC
+t/sparse_perlarray.t - testing sparse arrays using the PerlArray PMC
=head1 SYNOPSIS
- % prove t/dynpmc/sparse_perlarray.t
+ % prove t/sparse_perlarray.t
=head1 DESCRIPTION
Modified: trunk/t/pmc/mmd.t
==============================================================================
--- trunk/t/pmc/mmd.t (original)
+++ trunk/t/pmc/mmd.t Mon Jan 29 20:30:52 2007
@@ -23,7 +23,7 @@
=cut
-pir_output_is( <<'CODE', <<'OUTPUT', "PASM divide" );
+pir_output_is( <<'CODE', <<'OUTPUT', "PASM divide", todo=>'RT #41374');
.sub 'test' :main
@@ -508,7 +508,7 @@
42
OUT
-pir_output_is( <<'CODE', <<'OUT', 'MMD on PMC types' );
+pir_output_is( <<'CODE', <<'OUT', 'MMD on PMC types', todo=>'RT #41374' );
.sub 'test' :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
@@ -549,7 +549,7 @@
String ok 4
OUT
-pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types quoted" );
+pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types quoted", todo=>'RT #41374'
);
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
@@ -590,7 +590,7 @@
String ok 4
OUT
-pir_output_like( <<'CODE', <<'OUT', "MMD on PMC types, invalid" );
+pir_output_like( <<'CODE', <<'OUT', "MMD on PMC types, invalid", todo=>'RT
#41374' );
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
@@ -634,7 +634,7 @@
Null PMC access in invoke\(\)/
OUT
-pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types 3" );
+pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types 3", todo=>'RT #41374' );
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
@@ -689,7 +689,7 @@
Intege 42
OUT
-pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types, global namespace" );
+pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types, global namespace",
todo=>'RT #41374' );
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
@@ -732,7 +732,7 @@
String ok 4
OUT
-pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types, package namespace" );
+pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types, package namespace",
todo=>'RT #41374' );
.namespace ["Some"]
@@ -778,7 +778,7 @@
String ok 4
OUT
-pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types - Any" );
+pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types - Any", todo=>'RT #41374'
);
.sub main :main
.local pmc lib_perl_group
@@ -871,7 +871,7 @@
42
OUTPUT
-pir_output_is( <<'CODE', <<'OUTPUT', "__add as method - inherited" );
+pir_output_is( <<'CODE', <<'OUTPUT', "__add as method - inherited", todo=>'RT
#41374' );
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
Modified: trunk/t/pmc/sub.t
==============================================================================
--- trunk/t/pmc/sub.t (original)
+++ trunk/t/pmc/sub.t Mon Jan 29 20:30:52 2007
@@ -26,11 +26,11 @@
=cut
my $temp = "temp.pasm";
-my $load_perl = <<'END_PASM';
+my $load_types = <<'END_PASM';
loadlib P20, 'perl_group'
- find_type I24, 'PerlInt'
- find_type I25, 'PerlNum'
- find_type I28, 'PerlUndef'
+ find_type I24, 'Integer'
+ find_type I25, 'Float'
+ find_type I28, 'Undef'
END_PASM
END {
@@ -756,7 +756,7 @@
# This is the behavior of Parrot 0.4.3
# XXX Should there be a warning ?
-pir_output_is( <<'CODE', '', 'warn on in main' );
+pir_output_is( <<'CODE', '', 'warn on in main');
.sub _main :main
.include "warnings.pasm"
warningson .PARROT_WARNINGS_UNDEF_FLAG
@@ -786,7 +786,7 @@
# XXX This is the behavior of Parrot 0.4.3
# It looks like core PMCs never emit warning.
# Look in perlundef.t for a more sane test of 'warningson' in subs
-pir_output_is( <<'CODE', <<'OUTPUT', "warn on in sub, turn off in f2" );
+pir_output_is( <<'CODE', <<'OUTPUT', "warn on in sub, turn off in f2");
.sub _main :main
.include "warnings.pasm"
_f1()
@@ -1115,14 +1115,14 @@
2301
OUTPUT
-pir_output_like( <<"CODE", <<'OUTPUT', 'warn on in main' );
+pir_output_like( <<"CODE", <<'OUTPUT', 'warn on in main', todo => "XXX core
undef doesn't warn here. Should it?");
.sub 'test' :main
.include "warnings.pasm"
warningson .PARROT_WARNINGS_UNDEF_FLAG
_f1()
.end
.sub _f1
-$load_perl
+$load_types
P0 = new I28
print P0
@@ -1133,7 +1133,7 @@
pir_output_is( <<"CODE", <<'OUTPUT', 'warn on in sub' );
.sub 'test' :main
-$load_perl
+$load_types
.include "warnings.pasm"
_f1()
P0 = new I28
@@ -1147,9 +1147,9 @@
ok
OUTPUT
-pir_output_like( <<"CODE", <<'OUTPUT', 'warn on in sub, turn off in f2' );
+pir_output_like( <<"CODE", <<'OUTPUT', 'warn on in sub, turn off in f2',
todo=> "XXX core undef doesn't warn here. Should it?");
.sub 'test' :main
-$load_perl
+$load_types
.include "warnings.pasm"
_f1()
P0 = new I28
@@ -1158,7 +1158,7 @@
print "ok\\n"
.end
.sub _f1
-$load_perl
+$load_types
warningson .PARROT_WARNINGS_UNDEF_FLAG
_f2()
P0 = new I28
Modified: trunk/t/pmc/threads.t
==============================================================================
--- trunk/t/pmc/threads.t (original)
+++ trunk/t/pmc/threads.t Mon Jan 29 20:30:52 2007
@@ -935,7 +935,7 @@
.end
CODE
-pir_output_is( <<'CODE', <<'OUTPUT',
"CLONE_CODE|CLONE_GLOBALS|CLONE_HLL|CLONE_LIBRARIES" );
+pir_output_is( <<'CODE', <<'OUTPUT',
"CLONE_CODE|CLONE_GLOBALS|CLONE_HLL|CLONE_LIBRARIES", todo=> 'RT#41373' );
.HLL 'Perl', 'perl_group'
.include 'interpinfo.pasm'
