|
Line
Link Here
|
| 0 |
-- ufed-0.35.orig/ufed.pl |
0 |
++ ufed-0.35/ufed.pl |
|
Lines 500-516
Link Here
|
| 500 |
$First =~ s![ \t]+! !g; # remove multiple ' ' , tabs |
500 |
$First =~ s![ \t]+! !g; # remove multiple ' ' , tabs |
| 501 |
$First =~ s! \+! !g; # remove leading +'s |
501 |
$First =~ s! \+! !g; # remove leading +'s |
| 502 |
$First = ' ' . $First . ' '; # add leading & trailing space so we can tell 'ab' and 'abc' apart |
502 |
$First = ' ' . $First . ' '; # add leading & trailing space so we can tell 'ab' and 'abc' apart |
| 503 |
for $u (split (m![ \t\+]+!, $Second)) |
503 |
for $u (split (m![ \t]+!, $Second)) |
| 504 |
{ |
504 |
{ |
| 505 |
next if ($u eq ""); |
505 |
next if ($u eq ""); |
|
|
506 |
my $r = $u; |
| 507 |
$r =~ s!\+!\\\+!g; |
| 506 |
if ($u =~ m!^-+!) |
508 |
if ($u =~ m!^-+!) |
| 507 |
{ |
509 |
{ |
| 508 |
$u =~ s!^-!!g; |
510 |
$r =~ s!^-!!g; |
| 509 |
$First =~ s! -?$u ! !g; |
511 |
$First =~ s! -?$r ! !g; |
| 510 |
} |
512 |
} |
|
|
513 |
elsif ($u =~ m!^\++! ) |
| 514 |
{ |
| 515 |
$u =~ s!^\+!!g; |
| 516 |
$r =~ s!^\\\+!!g; |
| 517 |
$First =~ s! -?$r ! !g; |
| 518 |
$First .= " $u "; |
| 519 |
} |
| 511 |
else |
520 |
else |
| 512 |
{ |
521 |
{ |
| 513 |
$First =~ s! $u ! !; |
522 |
$First =~ s! -?$r ! !g; |
| 514 |
$First .= " $u "; |
523 |
$First .= " $u "; |
| 515 |
} |
524 |
} |
| 516 |
} |
525 |
} |
