[patch] ufed-0.35-plus.patch

ufed-0.35-plus.patch (text/plain), 923 bytes, created by Harald van Dijk (RETIRED) on 2004-09-28 04:34:29 UTC

--- ufed-0.35.orig/ufed.pl
+++ ufed-0.35/ufed.pl
@@ -500,17 +500,26 @@
    $First =~ s![ \t]+! !g;        # remove multiple ' ' , tabs
    $First =~ s! \+! !g;           # remove leading +'s
    $First = ' ' . $First . ' ';   # add leading & trailing space so we can tell 'ab' and 'abc' apart
-   for $u (split (m![ \t\+]+!, $Second))
+   for $u (split (m![ \t]+!, $Second))
    {
       next if ($u eq "");
+      my $r = $u;
+      $r =~ s!\+!\\\+!g;
       if ($u =~ m!^-+!)
       {
-         $u     =~ s!^-!!g;
+         $r     =~ s!^-!!g;
-         $First =~ s! -?$u ! !g;
+         $First =~ s! -?$r ! !g;
       }
+      elsif ($u =~ m!^\++! )
+      {
+         $u     =~ s!^\+!!g;
+         $r     =~ s!^\\\+!!g;
+         $First =~ s! -?$r ! !g;
+         $First .= " $u ";
+      }
       else
       {
-         $First =~ s! $u ! !;
+         $First =~ s! -?$r ! !g;
          $First .= " $u ";
       }
    }