Home
last modified time | relevance | path

Searched refs:SvREADONLY (Results 1 – 25 of 55) sorted by relevance

123

/openbsd/src/gnu/usr.bin/perl/lib/
DInternals.t17 ok( !Internals::SvREADONLY $foo );
21 ok( Internals::SvREADONLY $foo, 1 );
22 ok( Internals::SvREADONLY $foo );
29 ok( !Internals::SvREADONLY $foo, 0 );
30 ok( !Internals::SvREADONLY $foo );
37 ok( !Internals::SvREADONLY @foo );
42 ok( Internals::SvREADONLY @foo, 1 );
43 ok( Internals::SvREADONLY @foo );
55 ok( !Internals::SvREADONLY @foo, 0 );
56 ok( !Internals::SvREADONLY @foo );
[all …]
DInternals.pod7 $is_ro= Internals::SvREADONLY($x)
47 =item SvREADONLY(THING, [, $value])
D_charnames.pm148 Internals::SvREADONLY($txt, 1);
/openbsd/src/gnu/usr.bin/perl/t/lib/
Duniversal.t19 Usage: Internals::SvREADONLY(SCALAR[, ON]) at (eval 1) line 1.
28 Internals::SvREADONLY $x, 1;
29 ok Internals::SvREADONLY($x),
34 Internals::SvREADONLY($x,0);
40 Internals::SvREADONLY $x, 1;
41 ok Internals::SvREADONLY($x),
46 Internals::SvREADONLY($x,0);
51 Internals::SvREADONLY $h{a}, 1;
57 ok !Internals::SvREADONLY($h{b}),
59 Internals::SvREADONLY($h{b},0);
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/Hash-Util/lib/Hash/
DUtil.pm191 Internals::SvREADONLY %$hash, 1;
198 Internals::SvREADONLY %$hash, 1;
207 Internals::SvREADONLY %$hash, 0;
252 Internals::SvREADONLY(%$hash,1);
283 if !Internals::SvREADONLY(%$hash) && warnings::enabled;
284 Internals::SvREADONLY $hash->{$key}, 1;
290 Internals::SvREADONLY $hash->{$key}, 0;
323 Internals::SvREADONLY($value,1);
333 Internals::SvREADONLY($value, 0);
377 Internals::SvREADONLY($value,1);
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/Hash-Util/t/
DUtil.t179 ok( Internals::SvREADONLY(%hash),'Was locked %hash' );
180 ok( Internals::SvREADONLY($hash{foo}),'Was locked $hash{foo}' );
181 ok( Internals::SvREADONLY($hash{bar}),'Was locked $hash{bar}' );
187 ok( !Internals::SvREADONLY(%hash),'Was unlocked %hash' );
188 ok( !Internals::SvREADONLY($hash{foo}),'Was unlocked $hash{foo}' );
189 ok( !Internals::SvREADONLY($hash{bar}),'Was unlocked $hash{bar}' );
418 ok(Internals::SvREADONLY(%hash),'lock_keys DDS/t 1');
431 ok(Internals::SvREADONLY(%hash),'lock_keys DDS/t 2');
433 ok(!Internals::SvREADONLY(%hash),'unlock_keys DDS/t 2');
438 ok(Internals::SvREADONLY(%hash),'lock_keys args DDS/t');
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Win32API-File/
Dtypemap94 if( ! null_arg($arg) && ! SvREADONLY($arg) ) {
106 if( ! null_arg($arg) && ! SvREADONLY($arg) )
109 if( ! null_arg($arg) && ! SvREADONLY($arg) )
118 if( ! null_arg($arg) && ! SvREADONLY($arg) )
121 if( ! null_arg($arg) && ! SvREADONLY($arg) )
130 if( ! null_arg($arg) && ! SvREADONLY($arg) )
133 if( ! null_arg($arg) && ! SvREADONLY($arg) )
/openbsd/src/gnu/usr.bin/perl/dist/threads-shared/lib/threads/
Dshared.pm178 if (Internals::SvREADONLY($$item)) {
179 Internals::SvREADONLY($$copy, 1) if ($] >= 5.008003);
182 if (Internals::SvREADONLY($item)) {
183 Internals::SvREADONLY($copy, 1) if ($] >= 5.008003);
/openbsd/src/gnu/usr.bin/perl/dist/constant/lib/
Dconstant.pm33 Internals::SvREADONLY($const, 1);
34 Internals::SvREADONLY($downgrade, 1);
164 Internals::SvREADONLY($scalar, 1);
/openbsd/src/gnu/usr.bin/perl/
Dav.c372 if (SvREADONLY(av) && key >= AvFILL(av)) in Perl_av_store()
648 if (SvREADONLY(av)) in Perl_av_clear()
788 if (SvREADONLY(av)) in Perl_av_push()
820 if (SvREADONLY(av)) in Perl_av_pop()
879 if (SvREADONLY(av)) in Perl_av_unshift()
946 if (SvREADONLY(av)) in Perl_av_shift()
1078 if (SvREADONLY(av)) in Perl_av_delete()
Dhv.c928 if (!entry && SvREADONLY(hv) && !(action & HV_FETCH_ISEXISTS)) { in Perl_hv_common()
1049 && !SvREADONLY(hv) /* but is not a restricted hash */) { in Perl_hv_common()
1422 if (SvREADONLY(hv) && sv && SvREADONLY(sv)) { in S_hv_delete_common()
1434 if (SvREADONLY(hv)) { in S_hv_delete_common()
1578 if (SvREADONLY(hv)) { in S_hv_delete_common()
2027 if (SvREADONLY(hv) && HvTOTALKEYS(hv)) { in Perl_hv_clear()
2037 if (SvREADONLY(HeVAL(entry))) { in Perl_hv_clear()
Dpp.c130 if (SvREADONLY(sv)) in S_rv2gv()
789 else if (SvREADONLY(sv)) { in S_do_chomp()
2528 const bool left_ro_nonnum = !SvNIOKp(left) && SvREADONLY(left); in PP()
2529 const bool right_ro_nonnum = !SvNIOKp(right) && SvREADONLY(right); in PP()
2617 const bool left_ro_nonnum = !SvNIOKp(left) && SvREADONLY(left); in PP()
2618 const bool right_ro_nonnum = !SvNIOKp(right) && SvREADONLY(right); in PP()
4116 inplace = !SvREADONLY(source) && SvPADTMP(source);
4447 && !SvREADONLY(source) && SvPOK(source)
4772 && !SvREADONLY(source) && SvPOK(source)
6123 if (SvREADONLY(ary))
[all …]
Dsv.c2423 if (SvREADONLY(sv) && !SvOK(sv)) { in Perl_sv_2iv_flags()
2508 if (SvREADONLY(sv) && !SvOK(sv)) { in Perl_sv_2uv_flags()
2584 if (SvREADONLY(sv) && !SvOK(sv)) { in Perl_sv_2nv_flags()
3209 if (!SvREADONLY(sv) && SvTYPE(sv) < SVt_PV) in Perl_sv_2pv_flags()
3293 if (((SvREADONLY(sv) || SvFAKE(sv)) && !SvIsCOW(sv)) in Perl_sv_2pvbyte_flags()
3328 if (((SvREADONLY(sv) || SvFAKE(sv)) && !SvIsCOW(sv)) in Perl_sv_2pvutf8_flags()
3457 if (SvREADONLY(sv) && (SvPOKp(sv) || SvIOKp(sv) || SvNOKp(sv))) { in Perl_sv_utf8_upgrade_flags_grow()
3685 if (SvREADONLY(sv)) { in Perl_sv_utf8_encode()
4221 if (SvREADONLY(dsv))
4795 if (SvREADONLY(sv)) {
[all …]
Dinline.h93 assert(!SvREADONLY(av)); in Perl_av_store_simple()
136 assert(!SvREADONLY(av)); in Perl_av_fetch_simple()
169 assert(!SvREADONLY(av)); in Perl_av_push_simple()
3957 assert(!SvREADONLY(av)); in Perl_clear_defarray_simple()
/openbsd/src/gnu/usr.bin/perl/dist/threads-shared/t/
Dclone.t126 Internals::SvREADONLY($$obj, 1) if ($] >= 5.008003);
130 ok($test++, ($] < 5.008003) || Internals::SvREADONLY($$bork), 'read-only');
135 ok($test++, ($] < 5.008003) || Internals::SvREADONLY($$bork), 'read-only');
/openbsd/src/gnu/usr.bin/perl/t/io/
Dscalar_ungetc.t18 Internals::SvREADONLY($s, 1);
/openbsd/src/gnu/usr.bin/perl/t/op/
Dunshift.t75 Internals::SvREADONLY(@readonly_array, 1);
Dpush.t78 Internals::SvREADONLY(@readonly_array, 1);
Dsplice.t105 Internals::SvREADONLY(@readonly_array, 1);
Dsselect.t35 Internals::SvREADONLY($rocow,1);
Dtie.t1061 Internals::SvREADONLY($y,1);
1079 Internals::SvREADONLY($y,1);
/openbsd/src/gnu/usr.bin/perl/lib/unicore/
DName.pm354 Internals::SvREADONLY(@code_points_ending_in_code_point, 1);
/openbsd/src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
Dcall146 SvREADONLY() if PL_compiling is true. Current perls take care in
147 ck_require() to correctly turn off SvREADONLY before calling
/openbsd/src/gnu/usr.bin/perl/cpan/Compress-Raw-Bzip2/
DBzip2.xs313 if (SvREADONLY(sv) && PL_curcop != &PL_compiling)
730 if (SvREADONLY(buf))
/openbsd/src/gnu/usr.bin/perl/ext/Devel-Peek/
DPeek.xs168 if (SvREADONLY(sv)) in fill_mstats()

123