Home
last modified time | relevance | path

Searched refs:scalar (Results 1 – 25 of 306) sorted by relevance

12345678910>>...13

/mirbsd/src/gnu/usr.bin/perl/
Dperly.y97 %type <opval> expr term subscripted scalar ary hsh arylen star amper sideff
214 { $$ = newLOOPOP(OPf_PARENS, 1, scalar($3), $1); }
267 | label FOR scalar '(' remember mexpr ')' mblock cont
280 $2, scalar($7),
310 { $$ = invert(scalar($1)); }
452 prepend_elem(OP_LIST, scalar($1), $5),
456 append_elem(OP_LIST, scalar($1),
482 | scalar
489 { $$ = newBINOP(OP_GELEM, 0, $1, scalar($3));
491 | scalar '[' expr ']' /* $array[$element] */
[all …]
Dperly.c1694 { yyval.opval = newLOOPOP(OPf_PARENS, 1, scalar(yyvsp[0].opval), yyvsp[-2].opval); } in yyparse()
1777 yyvsp[-9].ival, scalar(yyvsp[-4].opval), in yyparse()
1804 { yyval.opval = invert(scalar(yyvsp[0].opval)); } in yyparse()
1964 prepend_elem(OP_LIST, scalar(yyvsp[-5].opval), yyvsp[-1].opval), in yyparse()
1970 append_elem(OP_LIST, scalar(yyvsp[-2].opval), in yyparse()
2007 { yyval.opval = newBINOP(OP_GELEM, 0, yyvsp[-4].opval, scalar(yyvsp[-2].opval)); in yyparse()
2012 { yyval.opval = newBINOP(OP_AELEM, 0, oopsAV(yyvsp[-3].opval), scalar(yyvsp[-1].opval)); } in yyparse()
2018 scalar(yyvsp[-1].opval));} in yyparse()
2024 scalar(yyvsp[-1].opval));} in yyparse()
2048 newCVREF(0, scalar(yyvsp[-3].opval))); } in yyparse()
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/threads/shared/t/
Dblessed.t58 $$hobj{'scalar'} = $sobj;
65 ok(3, ref($sobj) eq 'baz', "scalar blessing does work");
66 ok(4, $$sobj eq '3', "scalar contents okay");
70 ok(7, ref($$aobj[2]) eq 'baz', "blessed scalar in array");
71 ok(8, ${$$aobj[2]} eq '3', "blessed scalar in array contents");
75 ok(11, ref($$hobj{'scalar'}) eq 'baz', "blessed scalar in hash");
76 ok(12, ${$$hobj{'scalar'}} eq '3', "blessed scalar in hash contents");
83 ok(15, ref($sobj) eq 'baz', "scalar blessing does work");
84 ok(16, $$sobj eq '3', "scalar contents okay");
88 ok(19, ref($$aobj[2]) eq 'baz', "blessed scalar in array");
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/IPC/
DOpen3.t57 print scalar <STDIN>;
73 print scalar <STDIN>;
74 print STDERR scalar <STDIN>;
77 print scalar <READ>;
79 print scalar <READ>;
85 print scalar <STDIN>;
86 print STDERR scalar <STDIN>;
89 print scalar <READ>;
91 print scalar <READ>;
101 print scalar <READ>;
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/lib/warnings/
D3both16 Use of uninitialized value in scalar chop at - line 6.
30 Use of uninitialized value in scalar chop at - line 6.
67 Use of uninitialized value in scalar chop at - line 6.
76 Use of uninitialized value in scalar chop at - line 6.
110 Use of uninitialized value in scalar chop at - line 5.
122 Use of uninitialized value in scalar chop at - line 6.
144 Use of uninitialized value in scalar chop at - line 6.
153 Use of uninitialized value in scalar chop at - line 6.
184 Use of uninitialized value in scalar chop at - line 10.
197 Use of uninitialized value in scalar chop at - line 7.
[all …]
D1global46 Use of uninitialized value in scalar chop at - line 4.
62 Use of uninitialized value in scalar chop at - line 5.
71 Use of uninitialized value in scalar chop at ./abcd line 1.
81 Use of uninitialized value in scalar chop at ./abcd line 1.
91 Use of uninitialized value in scalar chop at ./abcd line 1.
113 Use of uninitialized value in scalar chop at - line 3.
120 Use of uninitialized value in scalar chop at (eval 1) line 1.
127 Use of uninitialized value in scalar chop at - line 4.
134 Use of uninitialized value in scalar chop at - line 4.
152 Use of uninitialized value in scalar chop at - line 5.
[all …]
D7fatal38 Use of uninitialized value in scalar chop at - line 8.
50 Use of uninitialized value in scalar chop at - line 8.
62 Use of uninitialized value in scalar chop at - line 6.
74 Use of uninitialized value in scalar chop at - line 6.
108 Use of uninitialized value in scalar chop at - line 3.
122 Use of uninitialized value in scalar chop at - line 3.
134 -- Use of uninitialized value in scalar chop at - line 6.
146 -- Use of uninitialized value in scalar chop at - line 5.
147 Use of uninitialized value in scalar chop at - line 7.
159 Use of uninitialized value in scalar chop at - line 8.
[all …]
D4lint71 Use of uninitialized value in scalar chop at - line 3.
86 Use of uninitialized value in scalar chop at - line 3.
101 Use of uninitialized value in scalar chop at - line 3.
115 Use of uninitialized value in scalar chop at - line 3.
127 Use of uninitialized value in scalar chop at (eval 1) line 2.
128 Use of uninitialized value in scalar chop at - line 8.
142 Use of uninitialized value in scalar chop at (eval 1) line 3.
143 Use of uninitialized value in scalar chop at - line 10.
156 Use of uninitialized value in scalar chop at (eval 1) line 2.
157 Use of uninitialized value in scalar chop at - line 9.
[all …]
D2use45 Use of uninitialized value in scalar chop at - line 8.
56 Use of uninitialized value in scalar chop at - line 6.
67 Use of uninitialized value in scalar chop at - line 6.
112 Use of uninitialized value in scalar chop at - line 3.
125 Use of uninitialized value in scalar chop at - line 3.
152 Use of uninitialized value in scalar chop at - line 8.
165 Use of uninitialized value in scalar chop at - line 7.
166 Use of uninitialized value in scalar chop at - line 9.
180 Use of uninitialized value in scalar chop at - line 10.
262 Use of uninitialized value in scalar chop at (eval 1) line 3.
[all …]
/mirbsd/src/gnu/usr.bin/perl/vms/
Dperly_c.vms1216 "loop : label FOR scalar '(' remember mexpr ')' mblock cont",
1275 "method : scalar",
1277 "subscripted : scalar '[' expr ']'",
1280 "subscripted : scalar '{' expr ';' '}'",
1317 "termdo : DO scalar '(' ')'",
1318 "termdo : DO scalar '(' expr ')'",
1329 "term : scalar",
1364 "myterm : scalar",
1372 "my_scalar : scalar",
1374 "scalar : '$' indirob",
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/op/
Deach.t63 $size = ((split('/',scalar %h))[1]);
65 $newsize = ((split('/',scalar %h))[1]);
68 $size = ((split('/',scalar %h))[1]);
71 $size = ((split('/',scalar %h))[1]);
75 $size = ((split('/',scalar %h))[1]);
101 $size = (split('/', scalar %hash))[1];
103 is ($size, (split('/', scalar %hash))[1]);
105 isnt ($size, (split('/', scalar %hash))[1]);
184 is(scalar keys %u, 4, "four different Unicode keys");
Dref.t86 is (scalar @$ref, 3);
89 is (scalar @{$$ref[0]}, 0);
220 is (scalar (@bar), 3);
221 is (scalar grep(ref($_), @bar), 3);
222 is (scalar (@baz), 3);
227 is (scalar (@baa), 3);
228 is (scalar grep(ref($_), @baa), 3);
229 is (scalar (@bzz), 3);
365 # "Attempt to free unreferenced scalar" warnings
Dexec.t63 is( scalar `$Perl -e "print 'ok'"`,
66 is( scalar `$Perl -e "print 'ok'" | $Perl -e "print <STDIN>"`,
69 is( scalar `$Perl -le "print 'ok'" | $Perl -le "print <STDIN>"`,
72 is( scalar `$Perl -e "print 'ok'" | $Perl -le "print <STDIN>"`,
75 is( scalar `$Perl -le "print 'ok'" | $Perl -e "print <STDIN>"`,
Dpack.t165 is(scalar(@y), 2);
439 is(scalar @t, 2);
961 @a = scalar unpack $pat, $p;
975 is(scalar @a, 1);
977 @a = scalar unpack $pat, $p;
978 is(scalar @a, 1);
1044 is(scalar @u, 2);
1054 is(scalar unpack("w/a*", "\x02abc"), "ab");
1273 like( scalar @warning, 1 );
1296 is(scalar @warning, 5);
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/File/Find/t/
Dfind.t188 Check(scalar(keys %{$Expect_Dir{ $File::Find::dir }}) == 0);
189 if (scalar(keys %{$Expect_Dir{ $File::Find::dir }}) == 0) {
342 Check( scalar(keys %Expect_File) == 0 );
366 Check( scalar(keys %Expect_File) == 0 );
395 topdir('fa') ); Check( scalar(keys %Expect_File) == 0 );
418 Check( scalar(keys %Expect_Name) == 0 );
446 Check( scalar(keys %Expect_File) == 0 );
465 Check( scalar(keys %Expect_Dir) == 0 );
484 Check( scalar(keys %Expect_Dir) == 0 );
496 Check( scalar( keys %pre ) == 0 );
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Text/Balanced/t/
Dextmul.t83 expect [ scalar extract_multiple($text,undef,1) ],
100 expect [ eval{local$^W;scalar extract_multiple($text,undef,2)} ],
117 expect [ eval{local$^W;scalar extract_multiple($text,undef,3)} ],
134 expect [ eval{local$^W;scalar extract_multiple($text,undef,4)} ],
152 expect [ eval{local$^W;scalar extract_multiple($text,undef,5)} ],
172 expect [ scalar extract_multiple($text) ],
189 expect [ scalar extract_multiple($text,[\&extract_bracketed]) ],
206 expect [ scalar extract_multiple($text,[\&extract_variable]) ],
223 expect [ scalar extract_multiple($text,[\&extract_quotelike]) ],
240 expect [ eval{local$^W;scalar extract_multiple($text,[\&extract_quotelike],2,1)} ],
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Storable/t/
Dtied.t54 scalar keys %{$self};
91 my $scalar;
92 my $self = bless \$scalar, shift;
132 tie $scalar, TIED_SCALAR;
144 $scalar = 'foo';
146 $array[0] = \$scalar;
150 @tied = (\$scalar, \@array, \%hash);
151 %a = ('key', 'value', 1, 0, $a, $b, 'cvar', \$a, 'scalarref', \$scalar);
Dtied_hook.t54 scalar keys %{$self};
120 my $scalar;
121 my $self = bless \$scalar, shift;
156 tie $scalar, TIED_SCALAR;
158 $scalar = 'foo';
160 $array[0] = \$scalar;
165 @tied = (\$scalar, \@array, \%hash);
166 %a = ('key', 'value', 1, 0, $a, $b, 'cvar', \$a, 'scalarref', \$scalar);
/mirbsd/src/gnu/usr.bin/perl/t/io/
Dopen.t65 is( scalar @rows, 2, ' readline, list context' );
76 is( scalar @rows, 2, ' readline, list context' );
93 is( scalar @rows, 2, ' readline, list context' );
162 is( scalar @rows, 2, ' readline list context' );
171 is( scalar @rows, 2, ' readline list context' );
188 is( scalar @rows, 2, ' readline list context' );
220 is(scalar <F>, "ok\n", ' readline');
226 is( scalar <F>, "ok\n", ' readline');
268 my $line = scalar <$tmphandle>;
/mirbsd/src/gnu/usr.bin/perl/ext/threads/t/
Dlist.t37 ok(2, scalar @{[threads->list]} == 0,'');
42 ok(3, scalar @{[threads->list]} == 0,'');
45 ok(4, scalar @{[threads->list]} == 1,'');
47 ok(5, scalar @{[threads->list]} == 0,'');
54 ok(8, scalar @{[threads->list]} == 0,'');
/mirbsd/src/gnu/usr.bin/perl/ext/PerlIO/t/
DPerlIO.t51 is(scalar <$txtfh>, "foo\n");
52 is(scalar <$txtfh>, "bar\n");
54 is(scalar <$binfh>, "foo\n");
55 is(scalar <$binfh>, "bar\n");
57 is(scalar <$utffh>, "foo\x{ff}\n");
58 is(scalar <$utffh>, "bar\x{abcd}\n");
82 is( scalar <$x>, "ok\n", ' readline' );
105 is( scalar <$x>, "ok\n", ' readline' );
/mirbsd/src/gnu/usr.bin/perl/lib/
DDB.t132 is( scalar @ret, 1, '... should report from provided stack frame number' );
142 is( scalar @ret, 1, '... should end loop if $DB::signal is true' );
172 is( scalar @subs, 2, '... should report only for requested subs' );
183 is( scalar @ret, 2, 'DB::filesubs() should use $DB::filename with no args');
185 is( scalar @ret, 2, '... should pick up subs in proper file' );
187 is( scalar @ret, 3, '... should use argument to find subs' );
189 is( scalar @ret, 3, '... should pick up subs in proper file with argument');
238 is( scalar keys %ret, 3, 'DB::lineevents() should pick up defined lines' );
355 is( scalar keys %DB::dbline, 3, 'DB::clr_breaks() should clear breaks' );
383 is( scalar keys %DB::dbline, 4,
[all …]
Dconstant.pm98 my $scalar = $constants{$name};
99 *$full_name = sub () { $scalar };
102 my $scalar = $_[0];
103 *$full_name = sub () { $scalar };
/mirbsd/src/gnu/usr.bin/perl/lib/I18N/LangTags/t/
D80_all_env.t45 ok show( scalar I18N::LangTags::Detect::detect()), "eu-mt";
56 ok show( scalar I18N::LangTags::Detect::detect()), "eu-mt";
66 ok show( scalar I18N::LangTags::Detect::detect()), "eu-mt";
77 ok show( scalar I18N::LangTags::Detect::detect()), "eu-mt";
89 ok show( scalar I18N::LangTags::Detect::detect()), "eu-mt";
98 ok show( scalar I18N::LangTags::Detect::detect()), "eu-mt";
103 ok show( scalar I18N::LangTags::Detect::detect()), "x-plorp";
107 ok show( scalar I18N::LangTags::Detect::detect()), "x-plorp";
/mirbsd/src/gnu/usr.bin/perl/lib/FileCache/t/
D03append.t33 print 'not ' unless scalar grep(/\b3$/m, @cat) == scalar @files;
45 print 'not ' unless scalar grep(/\b33$/m, @cat) == scalar @files;

12345678910>>...13