Lines Matching refs:oneline
197 my $oneline = ${$templatefile}[$i];
202 if ( $oneline =~ /\b(OOO_gid_\w+)\b/ )
240 my $oneline = ${$templatefile}[$i];
242 while ( $oneline =~ /\b(OOO_\w+)\b/ )
246 $oneline =~ s/$replacestring//;
311 my $oneline = ${$licensefile}[$i];
313 if ($i == 0) { $oneline =~ s/^\s*\�\�\�//; }
315 $oneline =~ s/\s*$//;
316 $oneline =~ s/\"/\\\"/g; # masquerading the "
317 $oneline =~ s/\'/\\\'/g; # masquerading the '
319 $oneline =~ s/\$\{/\{/g; # replacement of variables, only {PRODUCTNAME}, not ${PRODUCTNAME}
321 my $ulfstring = $onelanguage . " = " . "\"" . $oneline . "\"\n";
353 my $oneline = $licensearray[$i];
354 $oneline =~ s/^\s*$onelanguage\s*\=\s*\"//;
355 $oneline =~ s/\"\s*$//;
356 $licensestring = $licensestring . $oneline . "\\n";
892 my $oneline = ${$xmlfile}[$i];
894 if ( $oneline =~ /^\s*\<rpmunit/ ) { $record = 1; }
896 if ( $record ) { push(@rpmunit, $oneline); }
898 if ( $oneline =~ /^\s*rpmUniqueName\s*=\s*\"\Q$rpmname\E\"\s*$/ ) { $foundrpm = 1; }
900 if (( $record ) && ( $oneline =~ /\/\>\s*$/ )) { $record = 0; }
1458 my $oneline = ${$xmlfile}[$i];
1460 if ( $oneline =~ /^\s*rpmUniqueName\s*\=\s*\"(.*)\"\s*$/ )
1539 my $oneline = ${$xmlfile}[$i];
1541 if ( $oneline =~ /^\s*rpmUniqueName\s*\=\s*\"\Q$uniquename\E\"\s*$/ )