Lines Matching full:curr
43 my ($prev, $curr, $str);
44 $prev = ''; $curr = '';
48 $prev = $curr;
49 $curr = $_;
54 $curr = join( '', $prev, "<![CDATA[", $curr );
58 elsif ( $curr =~ /<\/programlisting>|<\/screen>/ ) {
60 $curr = join( '', $prev, "]]>", $curr );
65 print OUTFILE $curr;
