diff options
Diffstat (limited to 'trunk')
| -rw-r--r-- | trunk/ChangeLog | 3 | ||||
| -rw-r--r-- | trunk/src/echangelog/echangelog | 10 |
2 files changed, 12 insertions, 1 deletions
diff --git a/trunk/ChangeLog b/trunk/ChangeLog index 2e13833..6656598 100644 --- a/trunk/ChangeLog +++ b/trunk/ChangeLog @@ -1,3 +1,6 @@ +2008-11-11: Paul Varner <fuzzyray@gentoo.org> + * echangelog: Add --strict option (Bug 246242). + 2008-09-17: Paul Varner <fuzzyray@gentoo.org> * euse: Fix check_sanity function to use get_all_make_defaults function when checking for the make.defaults files in the profile. diff --git a/trunk/src/echangelog/echangelog b/trunk/src/echangelog/echangelog index 81d6e10..f98fed5 100644 --- a/trunk/src/echangelog/echangelog +++ b/trunk/src/echangelog/echangelog @@ -21,7 +21,7 @@ $Text::Wrap::unexpand = 0; # Global variables my (@files, @ebuilds, @conflicts, @trivial, @unknown, @new_versions, %actions); -my ($input, $editor, $entry, $user, $date, $text, $version, $year, $vcs); +my ($input, $editor, $entry, $user, $date, $text, $version, $year, $vcs, $strict); my %vcs = ( cvs => { diff => "cvs -f diff -U0", status => "cvs -fn up", @@ -41,6 +41,10 @@ my %vcs = ( cvs => { diff => "cvs -f diff -U0", ); +use Getopt::Long; +$strict = 0; +GetOptions('strict' => \$strict); + # Figure out what kind of repo we are in. if ( -d "CVS" ) { @@ -360,6 +364,10 @@ unless (@files) { 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 ($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 } |