Apply regex fixes from idl0r

svn path=/; revision=525

diff --git a/trunk/src/echangelog/echangelog b/trunk/src/echangelog/echangelog
index 3b64d21c0edecc461cbb2da0a2fd440fc8c5dbee..f874bae2c65755ed7c8702c7669d9f957f90e0b0 100644 (file)
--- a/trunk/src/echangelog/echangelog
+++ b/trunk/src/echangelog/echangelog
@@ -27,12 +27,12 @@ my %vcs =     ( cvs => { diff => "cvs -f diff -U0",
                         status => "cvs -fn up",
                         add => "cvs -f add",
                         skip => 6,
-                        regex => qr/^Index: ()(([^\/]*?)\.ebuild)\s*$/ },
+                        regex => qr/^Index: (([^\/]*?)\.ebuild)\s*$/ },
                svn => { diff => "svn diff -N",
                         status => "svn status",
                         add => "svn add",
                         skip => 6,
-                        regex => qr/^Index: ()(([^\/]*?)\.ebuild)\s*$/ },
+                        regex => qr/^Index: (([^\/]*?)\.ebuild)\s*$/ },
                git => { diff => "git diff",
                         status => "git diff-index HEAD --name-status",
                         add => "git add",
@@ -115,7 +115,7 @@ while (<C>) {
         }
         $actions{$1} = '+';
         next;
-    } elsif (/^([ARMD])\s+(\S+)/) {        
+    } elsif (/^([ARMD])\s+\+?\s*(\S+)/) {
         my ($status, $filename) = ($1,$2);
         if($vcs eq "git") {
             open P, "git rev-parse --sq --show-prefix |";