| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | grep.t | 147 my $gimme;
149 sub gimme { subroutine
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, 'scala
[all...] |
| H A D | sort.t | 272 my $gimme = wantarray;
273 print "not " unless $gimme;
287 my $gimme = wantarray;
288 print "not " if $gimme or !defined($gimme);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
| H A D | open.t | 260 sub gimme { subroutine
263 warn "gimme";
268 gimme($fh0[0]);
272 gimme($fh1{k});
277 gimme($fh2[0]);
282 gimme($fh3{k});
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | pp_hot.c | 772 I32 gimme = GIMME_V; local
786 if (gimme != G_ARRAY)
803 if (gimme != G_ARRAY)
828 if (gimme == G_ARRAY) {
863 if (gimme != G_ARRAY)
872 if (gimme == G_ARRAY) { /* array wanted */
876 else if (gimme == G_SCALAR) {
988 I32 gimme; local
997 gimme = GIMME_V;
1076 if (gimme !
1233 I32 gimme = GIMME; local
1483 I32 gimme = GIMME_V; local
1679 I32 gimme = OP_GIMME(PL_op, -1); local
1793 I32 gimme; local
2277 I32 gimme = GIMME_V; local
2312 I32 gimme; local
2372 I32 gimme; local
2567 I32 gimme; local
[all...] |
| H A D | pp_ctl.c | 865 I32 gimme = GIMME_V; local
876 if (items && gimme != G_VOID) {
913 if (gimme == G_ARRAY) {
938 if (gimme == G_SCALAR) {
942 else if (gimme == G_ARRAY)
1152 I32 gimme = block_gimme(); local
1153 return (gimme == G_VOID) ? G_SCALAR : gimme;
1173 Perl_croak(aTHX_ "panic: bad gimme: %d\n", cxstack[cxix].blk_gimme);
1320 I32 gimme; local
1438 I32 gimme; local
1620 I32 gimme = G_ARRAY; local
1662 I32 gimme = GIMME_V; local
1741 I32 gimme = GIMME_V; local
1757 I32 gimme; local
1800 I32 gimme; local
1910 I32 gimme; local
2225 I32 gimme; local
2636 I32 gimme = 0; /* SUSPECT - INITIALZE TO WHAT? NI-S */ local
2764 S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) argument
2962 I32 gimme = GIMME_V; local
3334 I32 gimme = GIMME_V, was = PL_sub_generation; local
3427 I32 gimme; local
3493 I32 gimme = GIMME_V; local
3515 I32 gimme; local
[all...] |
| H A D | pp.c | 51 I32 gimme; local
64 gimme = GIMME_V;
65 if (gimme == G_ARRAY) {
80 else if (gimme == G_SCALAR) {
92 I32 gimme; local
104 gimme = GIMME_V;
105 if (gimme == G_ARRAY) {
108 else if (gimme == G_SCALAR) {
3720 I32 gimme = GIMME_V; local
3732 if (gimme
3761 I32 gimme = GIMME_V; local
4413 I32 gimme = GIMME_V; local
[all...] |
| H A D | cop.h | 339 cx->blk_gimme = (U8)gimme; \
351 gimme = cx->blk_gimme; \
|
| H A D | pp_sys.c | 315 I32 gimme = GIMME_V; local
332 if (gimme == G_VOID) {
338 else if (gimme == G_SCALAR) {
371 if (gimme == G_SCALAR)
1200 I32 gimme = GIMME_V; local
1205 call_method("GETC", gimme);
1208 if (gimme == G_SCALAR)
1245 I32 gimme = GIMME_V; local
1311 I32 gimme; local
2768 I32 gimme; local
[all...] |
| H A D | doop.c | 1340 I32 gimme = GIMME_V; local
1361 if (gimme == G_VOID)
1364 if (gimme == G_SCALAR) {
|
| H A D | pp_sort.c | 1422 I32 gimme = GIMME; local
1429 if (gimme != G_ARRAY) {
|
| H A D | pp_pack.c | 1711 I32 gimme = GIMME_V;
1729 ((gimme == G_SCALAR) ? FLAG_UNPACK_ONLY_ONE : 0)
1733 if ( !cnt && gimme == G_SCALAR )
|
| H A D | perl.c | 2175 I32 gimme = GIMME_V; local
2241 I32 gimme; local
4720 I32 gimme; local
|
| H A D | proto.h | 1075 STATIC OP* S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
| H A D | Lint.pm | 175 # This gimme can't cope with context that's only determined
177 sub gimme { subroutine
203 return if gimme($op) || $implies_ok_context{$pname};
|
| H A D | CC.pm | 490 sub gimme { subroutine
507 my $gimme = gimme($op);
508 if ($gimme != G_ARRAY) {
513 #runtime("if ($gimme != G_ARRAY) XPUSHs(&PL_sv_undef);");
1091 my $gimme = gimme($op);
1092 if ($gimme == G_ARRAY) { # sic
1095 runtime("PP_LIST($gimme);");
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/ |
| H A D | Util.xs | 217 I32 gimme = G_SCALAR;
272 I32 gimme = G_SCALAR;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
| H A D | Dumper.xs | 933 I32 gimme = GIMME;
1123 if (gimme == G_ARRAY) {
1134 if (gimme == G_SCALAR)
|