Lines Matching refs:ldelim
780 my ($ldelim, $rdelim) = ('', '');
793 ($ldelim = $ldelim_orig) =~ s/\s+$//;
794 ($rdelim = $ldelim) =~ tr/</>/;
797 -ldelim => $ldelim_orig, -rdelim => $rdelim,
807 if ( ($ldelim eq '<' and /\A(.*?)(>)/s)
834 $ldelim = $seq_stack[-1]->ldelim;
837 $cmd = $ldelim = $rdelim = '';
856 $ldelim = $seq->ldelim;
857 ($rdelim = $ldelim) =~ tr/</>/;
860 my $errmsg = "*** ERROR: unterminated ${cmd}${ldelim}...${rdelim}".