From 081053b7ff302d6df8dedf52ae34e48683a83f72 Mon Sep 17 00:00:00 2001 From: idl0r Date: Wed, 29 Apr 2009 12:35:23 +0000 Subject: [PATCH] Fixed indent, migrated to tabs and fixed vim modeline. Cleanup. svn path=/; revision=554 --- trunk/src/echangelog/echangelog | 756 +++++++++--------- trunk/src/echangelog/test/TEST.pm | 18 +- .../src/echangelog/test/templates/test.patch | 4 +- 3 files changed, 397 insertions(+), 381 deletions(-) diff --git a/trunk/src/echangelog/echangelog b/trunk/src/echangelog/echangelog index 347adbe..4b1f786 100755 --- a/trunk/src/echangelog/echangelog +++ b/trunk/src/echangelog/echangelog @@ -11,6 +11,7 @@ use strict; use POSIX qw(strftime getcwd setlocale); use File::Find; +use Getopt::Long; # Fix bug 21022 by restricting to C locale setlocale(&POSIX::LC_ALL, "C"); @@ -24,30 +25,34 @@ my (@files, @ebuilds, @conflicts, @trivial, @unknown, @new_versions, %actions); my ($input, $editor, $entry, $user, $date, $text, $year, $vcs); my ($opt_help, $opt_strict, $opt_version); +$opt_help = 0; +$opt_strict = 0; +$opt_version = 0; + my %vcs = ( - cvs => { - diff => "cvs -f diff -U0", - status => "cvs -fn up", - add => "cvs -f add", - skip => 6, - regex => qr/^Index: (([^\/]*?)\.ebuild)\s*$/ - }, - svn => { - diff => "svn diff -N", - status => "svn status", - add => "svn add", - skip => 4, - regex => qr/^Index: (([^\/]*?)\.ebuild)\s*$/ - }, - git => { - diff => "git diff", - status => "git diff-index HEAD --name-status", - add => "git add", - # This value should usually be 3 but on new file mode we need skip+1. - # So 4 should be fine anyway. - skip => 4, - regex => qr/^diff \-\-git \S*\/((\S*)\.ebuild)/ - }, + cvs => { + diff => "cvs -f diff -U0", + status => "cvs -fn up", + add => "cvs -f add", + skip => 6, + regex => qr/^Index: (([^\/]*?)\.ebuild)\s*$/ + }, + svn => { + diff => "svn diff -N", + status => "svn status", + add => "svn add", + skip => 4, + regex => qr/^Index: (([^\/]*?)\.ebuild)\s*$/ + }, + git => { + diff => "git diff", + status => "git diff-index HEAD --name-status", + add => "git add", + # This value should usually be 3 but on new file mode we need skip+1. + # So 4 should be fine anyway. + skip => 4, + regex => qr/^diff \-\-git \S*\/((\S*)\.ebuild)/ + }, ); sub usage { @@ -62,6 +67,7 @@ sub usage { print $usage; exit 0; } + sub version { my $Revision = "Last svn change rev"; my $Date = "Last svn change date"; @@ -69,107 +75,114 @@ sub version { print "echangelog\n$Revision$foo \n$Date$foo\n"; exit 0; } -use Getopt::Long; -$opt_help = 0; -$opt_strict = 0; -$opt_version = 0; + GetOptions( 'help' => \$opt_help, 'strict' => \$opt_strict, - 'version' => \$opt_version + 'version' => \$opt_version, ); -usage if $opt_help; -version if $opt_version; -# Figure out what kind of repo we are in. +usage() if $opt_help; +version() if $opt_version; +# Figure out what kind of repo we are in. if ( -d "CVS" ) { - $vcs = "cvs"; + $vcs = "cvs"; } elsif ( -d '.svn' ) { - $vcs = "svn"; + $vcs = "svn"; } elsif ( -f '/usr/bin/git' and open GIT, "git rev-parse --git-dir |" ) { - $vcs = "git"; - close GIT; + $vcs = "git"; + close GIT; } else { - die "No CVS, .git, .svn directories found, what kind of repo is this?"; + die "No CVS, .git, .svn directories found, what kind of repo is this?"; } # Read the current ChangeLog if (-f 'ChangeLog') { - open I, '; } - close I; + open I, '; } + close I; } else { - # No ChangeLog here, maybe we should make one... - if (<*.ebuild>) { - open C, "portageq envvar PORTDIR |" or die "Can't find PORTDIR"; - my ($new) = ; - close C; - $new =~ s/\s+$//; - open I, "< $new/skel.ChangeLog" - or die "Can't open $new/skel.ChangeLog for input: $!\n"; - { local $/ = undef; $text = ; } - close I; - $text =~ s/^\*.*//ms; # don't need the fake entry - } else { - die "This should be run in a directory with ebuilds...\n"; - } + # No ChangeLog here, maybe we should make one... + if (<*.ebuild>) { + open C, "portageq envvar PORTDIR |" or die "Can't find PORTDIR"; + my ($new) = ; + close C; + + $new =~ s/\s+$//; + open I, "< $new/skel.ChangeLog" + or die "Can't open $new/skel.ChangeLog for input: $!\n"; + { local $/ = undef; $text = ; } + close I; + $text =~ s/^\*.*//ms; # don't need the fake entry + } else { + die "This should be run in a directory with ebuilds...\n"; + } } # Figure out what has changed around here open C, $vcs{$vcs}{status}.' 2>&1 |' or die "Can't run ".$vcs{$vcs}{status}.": $!\n"; while () { - if (/^C\s+(\S+)/) { - if($vcs eq "git") { - my $filename = $2; - $filename =~ /\S*\/(\S*)/; - if( -d $1 ) { + if (/^C\s+(\S+)/) { + if($vcs eq "git") { + my $filename = $2; + $filename =~ /\S*\/(\S*)/; + + if( -d $1 ) { + next; + } + + push @conflicts, $1; + next; + } + + push @conflicts, $1; next; - } - push @conflicts, $1; - next; - } - push @conflicts, $1; - next; - } elsif (/^\?\s+(\S+)/) { - if($vcs eq "git") { - my $filename = $2; - $filename =~ /\S*\/(\S*)/; - if( -d $1 ) { + } elsif (/^\?\s+(\S+)/) { + if($vcs eq "git") { + my $filename = $2; + $filename =~ /\S*\/(\S*)/; + + if( -d $1 ) { + next; + } + + push @unknown, $1; + next; + } else { + push @unknown, $1; + } + + $actions{$1} = '+'; next; - } - push @unknown, $1; - next; - } else { - push @unknown, $1; - } - $actions{$1} = '+'; - next; - } elsif (/^([ARMD])\s+\+?\s*(\S+)/) { - my ($status, $filename) = ($1,$2); - if($vcs eq "git") { - open P, "git rev-parse --sq --show-prefix |"; - my $prefix =

; - $prefix = substr($prefix, 0, -1); - close P; - - if ($filename =~ /$prefix(\S*)/) { - $filename = $1 ; - } - else { - next; - } - } - if( -d $filename ) { - next; + } elsif (/^([ARMD])\s+\+?\s*(\S+)/) { + my ($status, $filename) = ($1,$2); + + if($vcs eq "git") { + open P, "git rev-parse --sq --show-prefix |"; + my $prefix =

; + $prefix = substr($prefix, 0, -1); + close P; + + if ($filename =~ /$prefix(\S*)/) { + $filename = $1 ; + } + else { + next; + } + } + + if( -d $filename ) { + next; + } + + push @files, $filename; + ($actions{$filename} = $status) =~ tr/DARM/-+-/d; } - push @files, $filename; - ($actions{$filename} = $status) =~ tr/DARM/-+-/d; - } } # git only shows files already added so we need to check for unknown files -# separately here. +# separately here. if($vcs eq "git") { find(\&git_unknown_objects, "./"); } @@ -179,138 +192,142 @@ sub git_unknown_objects { my ($dev,$ino,$mode,$nlink,$uid,$gid); # Ignore empty directories - git doesn't version them and cvs removes them. - if ((($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && ! -d _) { + if ( (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && ! -d _ ) { open C, $vcs." status $_ 2>&1 1>/dev/null |"; - - while () { + + while () { $_ = ; push @unknown, $object; - }; - close C; + }; + + close C; }; } # Separate out the trivial files for now -@files = grep { - !/files.digest|Manifest|ChangeLog/ or do { push @trivial, $_; 0; } +@files = grep { + !/files.digest|Manifest|ChangeLog/ or do { push @trivial, $_; 0; } } @files; -@unknown = grep { - !/files.digest|Manifest|ChangeLog/ or do { push @trivial, $_; 0; } +@unknown = grep { + !/files.digest|Manifest|ChangeLog/ or do { push @trivial, $_; 0; } } @unknown; # Don't allow any conflicts if (@conflicts) { - print STDERR < $nb[$i]); - return $retval if $retval; - next; - } - - # char vs. char - if ($na[$i] =~ /^\D/ and $nb[$i] =~ /^\D/) { - $retval = ($na[$i] cmp $nb[$i]); - return $retval if $retval; - next; - } - - # num vs. char - $retval = ($na[$i] =~ /\d/ and -1 or +1); - return $retval; - } - - # - # compare suffix second - # - if (defined $sa and !defined $sb) { - return +2 if $sa eq "p"; - return -2; - } - if (defined $sb and !defined $sa) { - return -3 if $sb eq "p"; - return +3; - } - - if (defined $sa) { # and defined $sb - $retval = ($sa cmp $sb); - if ($retval) { - return +4 if $sa eq "p"; - return -4 if $sb eq "p"; - return $retval; # suffixes happen to be alphabetical order, mostly - } - - # compare suffix number - return +5 if defined $sna and !defined $snb; - return -5 if defined $snb and !defined $sna; - if (defined $sna) { # and defined $snb - $retval = ($sna <=> $snb); - return $retval if $retval; - } - } - - # - # compare rev third - # - return +6 if defined $ra and !defined $rb; - return -6 if defined $rb and !defined $ra; - if (defined $ra) { # and defined $rb - return ($ra <=> $rb); - } - - # - # nothing left to compare - # - return 0; + my ($a, $b) = @_; + (my $va = $a) =~ s/.*?-(\d.*?)(?:\.ebuild)?$/$1/; + (my $vb = $b) =~ s/.*?-(\d.*?)(?:\.ebuild)?$/$1/; + my ($na, $sa, $sna, $ra) = ($va =~ /^(.*?)(?:_(alpha|beta||pre|rc|p)(\d*))?(?:-r(\d+))?$/); + my ($nb, $sb, $snb, $rb) = ($vb =~ /^(.*?)(?:_(alpha|beta||pre|rc|p)(\d*))?(?:-r(\d+))?$/); + my (@na) = split /\.|(?<=\d)(?=[^\d\.])/, $na; + my (@nb) = split /\.|(?<=\d)(?=[^\d\.])/, $nb; + my $retval; + + # + # compare version numbers first + # + for (my $i = 0; defined $na[$i] or defined $nb[$i]; $i++) { + # def vs. undef + return +1 if defined $na[$i] and !defined $nb[$i]; + return -1 if defined $nb[$i] and !defined $na[$i]; + + # num vs. num + if ($na[$i] =~ /^\d/ and $nb[$i] =~ /^\d/) { + $retval = ($na[$i] <=> $nb[$i]); + return $retval if $retval; + next; + } + + # char vs. char + if ($na[$i] =~ /^\D/ and $nb[$i] =~ /^\D/) { + $retval = ($na[$i] cmp $nb[$i]); + return $retval if $retval; + next; + } + + # num vs. char + $retval = ($na[$i] =~ /\d/ and -1 or +1); + return $retval; + } + + # + # compare suffix second + # + if (defined $sa and !defined $sb) { + return +2 if $sa eq "p"; + return -2; + } + if (defined $sb and !defined $sa) { + return -3 if $sb eq "p"; + return +3; + } + + if (defined $sa) { # and defined $sb + $retval = ($sa cmp $sb); + if ($retval) { + return +4 if $sa eq "p"; + return -4 if $sb eq "p"; + return $retval; # suffixes happen to be alphabetical order, mostly + } + + # compare suffix number + return +5 if defined $sna and !defined $snb; + return -5 if defined $snb and !defined $sna; + + if (defined $sna) { # and defined $snb + $retval = ($sna <=> $snb); + return $retval if $retval; + } + } + + # + # compare rev third + # + return +6 if defined $ra and !defined $rb; + return -6 if defined $rb and !defined $ra; + + if (defined $ra) { # and defined $rb + return ($ra <=> $rb); + } + + # + # nothing left to compare + # + return 0; } + @files = sort sortfunc @files; # Just to ensure we don't get duplicate entries. sub mypush(\@@) { - my $aref = shift; + my $aref = shift; - foreach my $value (@_) { - push(@{$aref}, $value) if !grep(/^$value$/, @{$aref}); - } + foreach my $value (@_) { + push(@{$aref}, $value) if !grep(/^$value$/, @{$aref}); + } } # Forget ebuilds that only have changed copyrights, unless that's all @@ -320,79 +337,79 @@ sub mypush(\@@) { @files = grep !/\.ebuild$/, @files; if (@ebuilds) { - if ($vcs eq "git") { - open C, $vcs{$vcs}{diff}." HEAD -- @ebuilds 2>&1 |" or die "Can't run: ".$vcs{$vcs}{diff}."$!\n"; - } else { - open C, $vcs{$vcs}{diff}." @ebuilds 2>&1 |" or die "Can't run: ".$vcs{$vcs}{diff}."$!\n"; - } - - $_ = ; - - while (defined $_) { - # only possible with cvs - if (/^$vcs diff: (([^\/]*?)\.ebuild) was removed/) { - mypush(@files, $1); - } - - # We assume GNU diff output format here. - # git format: diff --git a/app-doc/repodoc/metadata.xml b/app-doc/repodoc/metadata.xml - elsif (/$vcs{$vcs}{regex}/) { - my $f = $1; - - if ($vcs eq "git") { - my $version = $2; - - while () { - last if /^deleted file mode|^index/; - if (/^new file mode/) { - mypush(@files, $f); - mypush(@new_versions, $version); - last; - } - } - } - - # check if more than just copyright date changed. - # skip some lines (vcs dependent) - foreach(1..$vcs{$vcs}{skip}) { - $_ = ; - } - - while () { - last if /^[A-Za-z]/; - if (/^[-+](?!# Copyright)/) { - mypush(@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; - } - elsif (/^$vcs.*?: (([^\/]*?)\.ebuild) is a new entry/) { - mypush(@files, $1); - mypush(@new_versions, $2); - } - - # other cvs output is ignored - $_ = ; - } + if ($vcs eq "git") { + open C, $vcs{$vcs}{diff}." HEAD -- @ebuilds 2>&1 |" or die "Can't run: ".$vcs{$vcs}{diff}."$!\n"; + } else { + open C, $vcs{$vcs}{diff}." @ebuilds 2>&1 |" or die "Can't run: ".$vcs{$vcs}{diff}."$!\n"; + } + + $_ = ; + + while (defined $_) { + # only possible with cvs + if (/^$vcs diff: (([^\/]*?)\.ebuild) was removed/) { + mypush(@files, $1); + } + # We assume GNU diff output format here. + # git format: diff --git a/app-doc/repodoc/metadata.xml b/app-doc/repodoc/metadata.xml + elsif (/$vcs{$vcs}{regex}/) { + my $f = $1; + + if ($vcs eq "git") { + my $version = $2; + + while () { + last if /^deleted file mode|^index/; + if (/^new file mode/) { + mypush(@files, $f); + mypush(@new_versions, $version); + last; + } + } + } + + # check if more than just copyright date changed. + # skip some lines (vcs dependent) + foreach(1..$vcs{$vcs}{skip}) { + $_ = ; + } + + while () { + last if /^[A-Za-z]/; + if (/^[-+](?!# Copyright)/) { + mypush(@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; + } + elsif (/^$vcs.*?: (([^\/]*?)\.ebuild) is a new entry/) { + mypush(@files, $1); + mypush(@new_versions, $2); + } + + # other cvs output is ignored + $_ = ; + } } close C; # Subversion diff doesn't identify new versions. So use the status command if (($vcs eq "svn") and (@ebuilds)) { - open C, $vcs{$vcs}{status}." @ebuilds 2>&1 |" or die "Can't run: ".$vcs{$vcs}{status}."$!\n"; - $_ = ; - - while (defined $_) { - if (/^A\s+\+?\s*(([^\s]*)\.ebuild)/) { - mypush(@files, $1); - mypush(@new_versions, $2); - } - $_ = ; - } + open C, $vcs{$vcs}{status}." @ebuilds 2>&1 |" or die "Can't run: ".$vcs{$vcs}{status}."$!\n"; + $_ = ; + + while (defined $_) { + if (/^A\s+\+?\s*(([^\s]*)\.ebuild)/) { + mypush(@files, $1); + mypush(@new_versions, $2); + } + + $_ = ; + } } # When a package move occurs, the versions appear to be new even though they are @@ -405,17 +422,19 @@ if (($vcs eq "svn") and (@ebuilds)) { # Allow ChangeLog entries with no changed files, but give a fat warning unless (@files) { - 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"; - print STDERR "** modified. Did you forget to $vcs add?\n"; - print STDERR "**\n"; - if ($opt_strict) { - print STDERR "** In strict mode, exiting\n"; - exit 1; - } - @files = sort sortfunc @trivial; - @files = qw/ChangeLog/ unless @files; # last resort to put something in the list + 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"; + print STDERR "** modified. Did you forget to $vcs add?\n"; + print STDERR "**\n"; + + if ($opt_strict) { + print STDERR "** In strict mode, exiting\n"; + exit 1; + } + + @files = sort sortfunc @trivial; + @files = qw/ChangeLog/ unless @files; # last resort to put something in the list } # sort @@ -424,37 +443,41 @@ unless (@files) { # Get the input from the cmdline, editor or stdin if ($ARGV[0]) { - $input = "@ARGV"; + $input = "@ARGV"; } else { - # Testing for defined() allows ECHANGELOG_EDITOR='' to cancel EDITOR - $editor = defined($ENV{'ECHANGELOG_EDITOR'}) ? $ENV{'ECHANGELOG_EDITOR'} : - $ENV{'EDITOR'} || undef; - if ($editor) { - system("$editor ChangeLog.new"); - if ($? != 0) { - # This usually happens when the editor got forcefully killed; and - # the terminal is probably messed up: so we reset things. - system('/usr/bin/stty sane'); - print STDERR "Editor died! Reverting to stdin method.\n"; - undef $editor; - } else { - if (open I, "; - close I; - } else { - print STDERR "Error opening ChangeLog.new: $!\n"; - print STDERR "Reverting to stdin method.\n"; - undef $editor; - } - unlink 'ChangeLog.new'; - } - } - unless ($editor) { - print "Please type the log entry: use Ctrl-d to finish, Ctrl-c to abort...\n"; - local $/ = undef; - $input = <>; - } + # Testing for defined() allows ECHANGELOG_EDITOR='' to cancel EDITOR + $editor = defined($ENV{'ECHANGELOG_EDITOR'}) ? $ENV{'ECHANGELOG_EDITOR'} : + $ENV{'EDITOR'} || undef; + + if ($editor) { + system("$editor ChangeLog.new"); + + if ($? != 0) { + # This usually happens when the editor got forcefully killed; and + # the terminal is probably messed up: so we reset things. + system('/usr/bin/stty sane'); + print STDERR "Editor died! Reverting to stdin method.\n"; + undef $editor; + } else { + if (open I, "; + close I; + } else { + print STDERR "Error opening ChangeLog.new: $!\n"; + print STDERR "Reverting to stdin method.\n"; + undef $editor; + } + + unlink 'ChangeLog.new'; + } + } + + unless ($editor) { + print "Please type the log entry: use Ctrl-d to finish, Ctrl-c to abort...\n"; + local $/ = undef; + $input = <>; + } } die "Empty entry; aborting\n" unless $input =~ /\S/; @@ -465,18 +488,20 @@ $input = Text::Wrap::fill(' ', ' ', $input); # Prepend the user info to the input unless ($user = $ENV{'ECHANGELOG_USER'}) { - my ($fullname, $username) = (getpwuid($<))[6,0]; - $fullname =~ s/,.*//; # remove GECOS, bug 80011 - $user = sprintf "%s <%s\@gentoo.org>", $fullname, $username; + my ($fullname, $username) = (getpwuid($<))[6,0]; + $fullname =~ s/,.*//; # remove GECOS, bug 80011 + $user = sprintf "%s <%s\@gentoo.org>", $fullname, $username; } + # Make sure that we didn't get "root" die "Please set ECHANGELOG_USER or run as non-root\n" if $user =~ /; } - close E; - - # Attempt the substitution and compare - $netext = update_copyright($etext); - next if $netext eq $etext; # skip this file if no change. - - # Write the new ebuild - open E, ">$e.new" or warn("Can't open $e.new\n"), next; - print E $netext and - close E or warn("Can't write $e.new\n"), next; - - # Move things around and show the diff - system "diff -U 0 $e $e.new"; - rename "$e.new", $e or warn("Can't rename $e.new: $!\n"); - } + if (-s $e) { + my ($etext, $netext); + + open E, "<$e" or warn("Can't read $e to update copyright year\n"), next; + { local $/ = undef; $etext = ; } + close E; + + # Attempt the substitution and compare + $netext = update_copyright($etext); + next if $netext eq $etext; # skip this file if no change. + + # Write the new ebuild + open E, ">$e.new" or warn("Can't open $e.new\n"), next; + print E $netext and + close E or warn("Can't write $e.new\n"), next; + + # Move things around and show the diff + system "diff -U 0 $e $e.new"; + rename "$e.new", $e or warn("Can't rename $e.new: $!\n"); + } } # Move things around and show the ChangeLog diff @@ -563,18 +593,18 @@ system 'diff -Nu ChangeLog ChangeLog.new'; rename 'ChangeLog.new', 'ChangeLog' or die "Can't rename ChangeLog.new: $!\n"; # Okay, now we have a starter ChangeLog to work with. -# The text will be added just like with any other ChangeLog below. +# The text will be added just like with any other ChangeLog below. # Add the new ChangeLog to vcs before continuing. if ($vcs eq "cvs") { - if (open F, "CVS/Entries") { - system("cvs -f add ChangeLog") unless (scalar grep /^\/ChangeLog\//, ); - } + if (open F, "CVS/Entries") { + system("cvs -f add ChangeLog") unless (scalar grep /^\/ChangeLog\//, ); + } } elsif ($vcs eq "svn") { - if (open F, ".svn/entries") { - system("svn add ChangeLog") unless (scalar grep /ChangeLog/, ); - } + if (open F, ".svn/entries") { + system("svn add ChangeLog") unless (scalar grep /ChangeLog/, ); + } } else { - system("$vcs{$vcs}{add} ChangeLog 2>&1 >> /dev/null"); + system("$vcs{$vcs}{add} ChangeLog 2>&1 >> /dev/null"); } -# vim:sw=4 ts=4 expandtab +# vim: set ts=4 sw=4 tw=0: diff --git a/trunk/src/echangelog/test/TEST.pm b/trunk/src/echangelog/test/TEST.pm index 21ecfe7..6632148 100644 --- a/trunk/src/echangelog/test/TEST.pm +++ b/trunk/src/echangelog/test/TEST.pm @@ -1,19 +1,5 @@ -# -#=============================================================================== -# -# FILE: POSIX.pm -# -# DESCRIPTION: -# -# FILES: --- -# BUGS: --- -# NOTES: --- -# AUTHOR: YOUR NAME (), -# COMPANY: -# VERSION: 1.0 -# CREATED: 04/28/2009 01:24:13 PM -# REVISION: --- -#=============================================================================== +# We just return a static/predefined date because we're working with +# static md5 checksums. package TEST; diff --git a/trunk/src/echangelog/test/templates/test.patch b/trunk/src/echangelog/test/templates/test.patch index 83399ce..72d46fa 100644 --- a/trunk/src/echangelog/test/templates/test.patch +++ b/trunk/src/echangelog/test/templates/test.patch @@ -1,6 +1,6 @@ ---- test.patch2 2009-04-28 14:13:26.171225175 +0200 +--- test.patch 2009-04-28 14:13:26.171225175 +0200 +++ test.patch 2009-04-28 14:12:26.246497830 +0200 @@ -0,0 +1,3 @@ +This is just an example. -+Its used for serveral echangelog tests. ++Its used for several echangelog tests. + -- 2.26.2