root/trunk/prefix-overlay/app-portage/gentoolkit-dev/files/gentoolkit-dev-0.2.6.1-svn-echangelog.patch

src/echangelog/echangelog

@@ -47 +47 @@
-}
-
-# Figure out what has changed around here
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    }
-}
-
@@ -84 +101 @@
-# out above)
-if (@unknown) {
-    print STDERR <<EOT;
- reports the following unknown files.  Please use "cvs
+/svn reports the following unknown files.  Please use "cvs/svn
-running echangelog, or remove the files in question.
-EOT
-    print STDERR map "? $_\n", @unknown;
@@ -180 +197 @@
-@ebuilds = grep /\.ebuild$/, @files;
-@files = grep !/\.ebuild$/, @files;
-if (@ebuilds) {
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                }
+                # at this point we've either added $f to @files or not,
+                # and we have the next line in $_ for processing
+                next;
-            }
-
-
-
-
-
-
-
+
+
+
+
+
+
-        }
-
+
+
-        $_ = <C>;
+        while (defined $_) {
+            if (/^D[ ]+(([^\/]*?)\.ebuild)/) {
+                push @files, $1;
+            } elsif (/^A[ \+]+(([^\/]*?)\.ebuild)/) {
+                push @files, $1;
+                push @new_versions, $2;  # new ebuild, will create a new entry
+            } elsif (/^[RM][ \+]+(([^\/]*?)\.ebuild)/) {
+                open D, "svn diff $1 2>&1 |" or die "Can't run svn diff: $!\n";
+                my ($f, $v) = ($1, $2);
+                $_ = <D>;
+                while (defined $_) {
+                    # check if more than just copyright date changed.
+                    # skip some lines
+                    $_ = <D>;   # ====================================
+                    $_ = <D>;   # --- vim-6.2-r6.ebuild
+                    $_ = <D>;   # +++ vim-6.2-r6.ebuild
+                    while (<D>) {
+                        last if /^[A-Za-z]/;
+                        if (/^[-+](?!# Copyright)/) {
+                            push @files, $f;
+                            last;
+                        }
+                    }
+                    # at this point we've either added $f to @files or not,
+                    # and we have the next line in $_ for processing
+                    next;
+                }
+                close D;
+            }
+            # other svn output is ignored
+            $_ = <C>;
+        }
-    }
-}
-close C;
@@ -230 +283 @@
-    print STDERR "**\n";
-    print STDERR "** NOTE: No non-trivial changed files found.  Normally echangelog\n";
-    print STDERR "** should be run after all affected files have been added and/or\n";
-
+/svn
-    print STDERR "**\n";
-    @files = sort sortfunc @trivial;
-    @files = qw/ChangeLog/ unless @files;  # last resort to put something in the list
@@ -360 +413 @@
-
-# Okay, now we have a starter ChangeLog to work with.
-# The text will be added just like with any other ChangeLog below.  
-
-
-
+
+
+
+
+
+
+
+
+
-}
-
-# vim:sw=4 ts=8 expandtab