diff options
| author | John Peacock <jpeacock@cpan.org> | 2011-12-10 21:51:02 -0500 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2011-12-12 10:06:36 -0500 |
| commit | 43d9ecf9f7a33b7bdb5c609a39fc0be4704f25f0 (patch) | |
| tree | 1aa4e19266cd010baefbe8442f62ee7adaa9dcb9 /universal.c | |
| parent | ee205375a963f0d44c8728cf881169683c9b912d (diff) | |
| download | perl-43d9ecf9f7a33b7bdb5c609a39fc0be4704f25f0.tar.gz | |
Set all version object math ops to noop
Explicitly handle all math operations with version objects as noop
instead of letting Perl handle it magically with nomethod.
Signed-off-by: David Golden <dagolden@cpan.org>
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/universal.c b/universal.c index a109e7d2fe..2bcc740ee0 100644 --- a/universal.c +++ b/universal.c @@ -1367,6 +1367,15 @@ struct xsub_details details[] = { {"version::vcmp", XS_version_vcmp, NULL}, {"version::(bool", XS_version_boolean, NULL}, {"version::boolean", XS_version_boolean, NULL}, + {"version::(+", XS_version_noop, NULL}, + {"version::(-", XS_version_noop, NULL}, + {"version::(*", XS_version_noop, NULL}, + {"version::(/", XS_version_noop, NULL}, + {"version::(+=", XS_version_noop, NULL}, + {"version::(-=", XS_version_noop, NULL}, + {"version::(*=", XS_version_noop, NULL}, + {"version::(/=", XS_version_noop, NULL}, + {"version::(abs", XS_version_noop, NULL}, {"version::(nomethod", XS_version_noop, NULL}, {"version::noop", XS_version_noop, NULL}, {"version::is_alpha", XS_version_is_alpha, NULL}, |