diff -r -u parrot-current/src/dynoplibs/myops.ops parrot-andy/src/dynoplibs/myops.ops --- parrot-current/src/dynoplibs/myops.ops 2009-04-17 08:58:53.000000000 -0400 +++ parrot-andy/src/dynoplibs/myops.ops 2009-05-21 11:15:45.145179107 -0400 @@ -44,18 +44,6 @@ $1 = string_from_literal(interp, "fortytwo"); } -=item B - -Halt and Catch Fire. Tries to crash Parrot. Note that making a segfault here -is a Bad Thing, so this relies instead on Well Supported end-this-process -behavior. - -=cut - -op hcf() :flow { - abort(); -} - =item B Support for writing a very short quine. diff -r -u parrot-current/t/dynoplibs/myops.t parrot-andy/t/dynoplibs/myops.t --- parrot-current/t/dynoplibs/myops.t 2009-04-17 09:00:29.000000000 -0400 +++ parrot-andy/t/dynoplibs/myops.t 2009-05-21 11:15:24.432927937 -0400 @@ -6,7 +6,7 @@ use warnings; use lib qw( . lib ../lib ../../lib ); use Test::More; -use Parrot::Test tests => 10; +use Parrot::Test tests => 9; use Parrot::Config; =head1 NAME @@ -51,18 +51,6 @@ fortytwo OUTPUT -pir_error_output_like( << 'CODE', << 'OUTPUT', "hcf" ); -.loadlib "myops_ops" -.sub main :main - print "neither here\n" - hcf - print "nor there\n" -.end -CODE -/neither here -(?!nor there)/ -OUTPUT - { my @todo;