Lines Matching full:push

82             push @frag, $1;
85             push @frag, $1;
88             push @frag, "";
93                     push @frag, $1;
96                     push @frag, $1;
99                     push @frag, "\\$1" unless $1 eq "\n";
106             push @frag, $1 unless $1 eq "\n";
113         push @ret, join("", splice(@frag)) if (@frag > 0);
116     push @ret, join("", splice(@frag)) if (@frag > 0);
147             push @frag, $1;
150             push @frag, "";
155                     push @frag, q{"} x int($l/2) if ($l > 1);
160                     push @frag, $1;
164                     push @frag, q{\\} x int($l / 2);
167                         push @frag, q{"};
171                     push @frag, $1;
179             push @frag, q{\\} x int($l / 2);
182                 push @frag, q{"};
186             push @frag, $1;
193         push @ret, join("", splice(@frag)) if (@frag > 0);
196     push @ret, join("", splice(@frag)) if (@frag);
211             push @args, split_val($arg);
219         push @{$EXTRA{$arg}}, split_val(shift(@_));