diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-31 12:42:52 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-31 12:43:30 +0000 |
| commit | e97701b4b83f1279df76a98fe4d520e07dd60c99 (patch) | |
| tree | 8554d427046e9ccb3280d9d0d6bbc7467065b927 /ext/B/B.xs | |
| parent | 64dc9714ea644685eed378d21d3784602e1333e9 (diff) | |
| download | perl-e97701b4b83f1279df76a98fe4d520e07dd60c99.tar.gz | |
Merge the implementation of B::{main_root,main_start} using ALIAS.
Diffstat (limited to 'ext/B/B.xs')
| -rw-r--r-- | ext/B/B.xs | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index dca31b5881..8ba2346a3e 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -618,8 +618,6 @@ BOOT: #endif #define B_begin_av() PL_beginav_save #define B_end_av() PL_endav -#define B_main_root() PL_main_root -#define B_main_start() PL_main_start #define B_amagic_generation() PL_amagic_generation #define B_defstash() PL_defstash #define B_curstash() PL_curstash @@ -664,12 +662,6 @@ B_regex_padav() B::CV B_main_cv() -B::OP -B_main_root() - -B::OP -B_main_start() - long B_amagic_generation() @@ -706,6 +698,15 @@ B_diehook() MODULE = B PACKAGE = B +B::OP +main_root() + ALIAS: + main_start = 1 + CODE: + RETVAL = ix ? PL_main_start : PL_main_root; + OUTPUT: + RETVAL + UV sub_generation() ALIAS: |