Lines Matching full:push

83             push @frag, $1;
86             push @frag, $1;
89             push @frag, "";
94                     push @frag, $1;
97                     push @frag, $1;
100                     push @frag, "\\$1" unless $1 eq "\n";
107             push @frag, $1 unless $1 eq "\n";
114         push @ret, join("", splice(@frag)) if (@frag > 0);
117     push @ret, join("", splice(@frag)) if (@frag > 0);
148             push @frag, $1;
151             push @frag, "";
156                     push @frag, q{"} x int($l/2) if ($l > 1);
161                     push @frag, $1;
165                     push @frag, q{\\} x int($l / 2);
168                         push @frag, q{"};
172                     push @frag, $1;
180             push @frag, q{\\} x int($l / 2);
183                 push @frag, q{"};
187             push @frag, $1;
194         push @ret, join("", splice(@frag)) if (@frag > 0);
197     push @ret, join("", splice(@frag)) if (@frag);
212             push @args, split_val($arg);
220         push @{$EXTRA{$arg}}, split_val(shift(@_));