diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-26 19:10:26 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-26 19:10:26 +0000 |
commit | 7d30b5c4c60a798b772f5d7bd3b85d21016359c7 (patch) | |
tree | ee12691ce71882115a98a9546a7a6b953d0d055a /ext/B/O.pm | |
parent | dfdd1393a5b8826d427524003a858b7556c66371 (diff) | |
download | perl-7d30b5c4c60a798b772f5d7bd3b85d21016359c7.tar.gz |
s/STOP/CHECK/ blocks
p4raw-id: //depot/perl@4905
Diffstat (limited to 'ext/B/O.pm')
-rw-r--r-- | ext/B/O.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/O.pm b/ext/B/O.pm index d07c4a5b0f..352f8d4206 100644 --- a/ext/B/O.pm +++ b/ext/B/O.pm @@ -11,7 +11,7 @@ sub import { my $compilesub = &{"B::${backend}::compile"}(@options); if (ref($compilesub) eq "CODE") { minus_c; - eval 'STOP { &$compilesub() }'; + eval 'CHECK { &$compilesub() }'; } else { die $compilesub; } @@ -59,7 +59,7 @@ C<B::Backend> module and calls the C<compile> function in that package, passing it OPTIONS. That function is expected to return a sub reference which we'll call CALLBACK. Next, the "compile-only" flag is switched on (equivalent to the command-line option C<-c>) -and a STOP block is registered which calls CALLBACK. Thus the main +and a CHECK block is registered which calls CALLBACK. Thus the main Perl program mentioned on the command-line is read in, parsed and compiled into internal syntax tree form. Since the C<-c> flag is set, the program does not start running (excepting BEGIN blocks of |