diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-31 21:20:08 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-31 21:22:23 +0000 |
| commit | 7cb18e1b020cd2e5d1de687ae046ab2d48a69301 (patch) | |
| tree | 5701c3529c1e0446f57cd223eee1703b0fc55251 /dist | |
| parent | 419956aa3919a2174e7f99c4d162e76cb94f0a9e (diff) | |
| download | perl-7cb18e1b020cd2e5d1de687ae046ab2d48a69301.tar.gz | |
Merge Storable::{is_storing,is_retrieving} using ALIAS.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Storable/Storable.xs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs index 846a6508c3..2853657880 100644 --- a/dist/Storable/Storable.xs +++ b/dist/Storable/Storable.xs @@ -6426,14 +6426,14 @@ last_op_in_netorder() bool is_storing() + ALIAS: + is_storing = ST_STORE + is_retrieving = ST_RETRIEVE CODE: - RETVAL = !!is_storing(aTHX); - OUTPUT: - RETVAL + { + dSTCXT; -bool -is_retrieving() - CODE: - RETVAL = !!is_retrieving(aTHX); + RETVAL = cxt->entry && (cxt->optype & ix) ? TRUE : FALSE; + } OUTPUT: RETVAL |