diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-03-10 08:27:12 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-11 04:53:50 +0000 |
| commit | 492935018b279c3965aa25ebfc1c7f28faf8fae0 (patch) | |
| tree | 5dbd445eab6829e4a7d66c88aa59e40111b57a5e /universal.c | |
| parent | b4e83e5bb325c4a237d83150af9e71a1219f53fa (diff) | |
| download | perl-492935018b279c3965aa25ebfc1c7f28faf8fae0.tar.gz | |
Subject: [PATCH] Hash::Util & restricted hash touch up, part 1
Date: Sun, 10 Mar 2002 13:27:12 -0500
Message-Id: <20020310182712.GC693@blackrider>
Subject: [PATCH] Hash::Util part 2
From: Michael G Schwern <schwern@pobox.com>
Date: Sun, 10 Mar 2002 15:09:34 -0500
Message-Id: <20020310200934.GB27112@blackrider>
Subject: [PATCH] Hash::Util MANIFEST correction
From: Michael G Schwern <schwern@pobox.com>
Date: Sun, 10 Mar 2002 16:27:07 -0500
Message-Id: <20020310212707.GF27112@blackrider>
(Also changes find.t and taint.t, which were looking for access.t)
p4raw-id: //depot/perl@15166
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/universal.c b/universal.c index aeec350f5e..ae12e27984 100644 --- a/universal.c +++ b/universal.c @@ -167,7 +167,6 @@ XS(XS_utf8_upgrade); XS(XS_utf8_downgrade); XS(XS_utf8_unicode_to_native); XS(XS_utf8_native_to_unicode); -XS(XS_access_readonly); void Perl_boot_core_UNIVERSAL(pTHX) @@ -184,7 +183,6 @@ Perl_boot_core_UNIVERSAL(pTHX) newXS("utf8::downgrade", XS_utf8_downgrade, file); newXS("utf8::native_to_unicode", XS_utf8_native_to_unicode, file); newXS("utf8::unicode_to_native", XS_utf8_unicode_to_native, file); - newXSproto("access::readonly",XS_access_readonly, file, "\\[$%@];$"); } @@ -460,22 +458,3 @@ XS(XS_utf8_unicode_to_native) XSRETURN(1); } -XS(XS_access_readonly) -{ - dXSARGS; - SV *sv = SvRV(ST(0)); - IV old = SvREADONLY(sv); - if (items == 2) { - if (SvTRUE(ST(1))) { - SvREADONLY_on(sv); - } - else { - SvREADONLY_off(sv); - } - } - if (old) - XSRETURN_YES; - else - XSRETURN_NO; -} - |