| /mirbsd/src/gnu/usr.bin/perl/t/op/ |
| D | grep.t | 147 my $gimme;
149 sub gimme {
152 $gimme = $want ? 'list' : 'scalar';
154 $gimme = 'void';
160 undef $gimme; gimme for @list; ok($gimme, 'void'); $test++;
161 undef $gimme; grep { gimme } @list; ok($gimme, 'scalar'); $test++;
162 undef $gimme; map { gimme } @list; ok($gimme, 'list'); $test++;
|
| D | sort.t | 275 my $gimme = wantarray;
276 print "not " unless $gimme;
290 my $gimme = wantarray;
291 print "not " if $gimme or !defined($gimme);
|
| /mirbsd/src/gnu/usr.bin/perl/ |
| D | pp_hot.c | 786 const I32 gimme = GIMME_V; in PP() local
801 if (gimme != G_ARRAY) in PP()
818 if (gimme != G_ARRAY) in PP()
842 if (gimme == G_ARRAY) { in PP()
877 if (gimme != G_ARRAY) in PP()
885 if (gimme == G_ARRAY) { /* array wanted */ in PP()
889 else if (gimme == G_SCALAR) { in PP()
1001 I32 gimme; in PP() local
1010 gimme = GIMME_V; in PP()
1087 if (gimme != G_VOID && hv_exists_ent(hash, sv, 0)) in PP()
[all …]
|
| D | pp_ctl.c | 892 const I32 gimme = GIMME_V; in PP() local
903 if (items && gimme != G_VOID) { in PP()
940 if (gimme == G_ARRAY) { in PP()
965 if (gimme == G_SCALAR) { in PP()
969 else if (gimme == G_ARRAY) in PP()
1178 const I32 gimme = block_gimme(); in Perl_dowantarray() local
1179 return (gimme == G_VOID) ? G_SCALAR : gimme; in Perl_dowantarray()
1336 I32 gimme; in Perl_die_where() local
1392 if (gimme == G_SCALAR) in Perl_die_where()
1455 I32 gimme; in PP() local
[all …]
|
| D | pp.c | 66 I32 gimme; in PP() local
79 gimme = GIMME_V; in PP()
80 if (gimme == G_ARRAY) { in PP()
95 else if (gimme == G_SCALAR) { in PP()
107 I32 gimme; in PP() local
119 gimme = GIMME_V; in PP()
120 if (gimme == G_ARRAY) { in PP()
123 else if (gimme == G_SCALAR) { in PP()
3815 const I32 gimme = GIMME_V; in PP() local
3827 if (gimme == G_ARRAY) { in PP()
[all …]
|
| D | pp_sys.c | 334 const I32 gimme = GIMME_V; in PP() local
351 if (gimme == G_VOID) { in PP()
356 else if (gimme == G_SCALAR) { in PP()
386 if (gimme == G_SCALAR) in PP()
1225 const I32 gimme = GIMME_V; in PP() local
1230 call_method("GETC", gimme); in PP()
1233 if (gimme == G_SCALAR) in PP()
1270 const I32 gimme = GIMME_V; in S_doform() local
1337 I32 gimme; in PP() local
1453 PERL_UNUSED_VAR(gimme); in PP()
[all …]
|
| D | cop.h | 332 cx->blk_gimme = (U8)gimme; \
344 gimme = cx->blk_gimme; \
|
| D | doop.c | 1346 const I32 gimme = GIMME_V; in Perl_do_kv() local
1365 if (gimme == G_VOID) in Perl_do_kv()
1368 if (gimme == G_SCALAR) { in Perl_do_kv()
|
| D | perl.c | 2619 const I32 gimme = GIMME_V; local
2685 I32 gimme; local
2695 PERL_UNUSED_VAR(gimme);
5258 I32 gimme; local
5275 PERL_UNUSED_VAR(gimme);
|
| D | pp_pack.c | 1785 I32 gimme = GIMME_V;
1803 ((gimme == G_SCALAR) ? FLAG_UNPACK_ONLY_ONE : 0)
1807 if ( !cnt && gimme == G_SCALAR )
|
| D | pp_sort.c | 1493 I32 gimme = GIMME; in PP() local
1505 if (gimme != G_ARRAY) { in PP()
|
| D | Changes5.002 | 105 NETaa13739: XSUB interface caches gimme in case XSUB clobbers it
108 Applied suggest patch. Also deleted second gimme declaration as redundant.
|
| D | proto.h | 1705 STATIC OP* S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
|
| D | embed.fnc | 1140 sR |OP* |doeval |int gimme|NULLOK OP** startop|NULLOK CV* outside|U32 seq
|
| /mirbsd/src/gnu/usr.bin/perl/t/io/ |
| D | open.t | 266 sub gimme {
274 gimme($fh0[0]);
278 gimme($fh1{k});
283 gimme($fh2[0]);
288 gimme($fh3{k});
|
| /mirbsd/src/gnu/usr.bin/perl/ext/B/B/ |
| D | Lint.pm | 178 sub gimme { subroutine
204 return if gimme($op) || $implies_ok_context{$pname};
|
| D | CC.pm | 490 sub gimme { subroutine
507 my $gimme = gimme($op);
508 if ($gimme != G_ARRAY) {
1091 my $gimme = gimme($op);
1092 if ($gimme == G_ARRAY) { # sic
1095 runtime("PP_LIST($gimme);");
|
| /mirbsd/src/gnu/usr.bin/perl/ext/threads/ |
| D | threads.xs | 44 int gimme; /* Context of create */ member
312 len = call_sv(thread->init_function, thread->gimme|G_EVAL);
421 thread->gimme = GIMME_V;
|
| /mirbsd/src/gnu/usr.bin/perl/ext/List/Util/ |
| D | Util.xs | 247 I32 gimme = G_SCALAR; in reduce() local
282 I32 gimme = G_SCALAR; in first() local
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Data/Dumper/ |
| D | Dumper.xs | 939 I32 gimme = GIMME; variable
1132 if (gimme == G_ARRAY) {
1143 if (gimme == G_SCALAR)
|
| /mirbsd/src/gnu/usr.bin/perl/pod/ |
| D | perlcall.pod | 1298 I32 gimme = GIMME_V;
1299 if (gimme == G_VOID)
1301 else if (gimme == G_SCALAR)
|
| D | perldsc.pod | 240 passing arguments to functions, I seldom like to see the gimme-a-reference
|
| D | perlfaq5.pod | 838 print "gimme: ";
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/ |
| D | embed.fnc | 1140 sR |OP* |doeval |int gimme|OP** startop|CV* outside|U32 seq
|