Define a action if no files have been changed, thanks to grobian. That should prevent "Use of uninitialized value in concatenation" warnings.

svn path=/; revision=572

1 files changed, 6 insertions, 1 deletions

diff --git a/trunk/src/echangelog/echangelog b/trunk/src/echangelog/echangelog
index 0bd90fb..834e4ac 100755
--- a/trunk/src/echangelog/echangelog
+++ b/trunk/src/echangelog/echangelog
@@ -458,7 +458,12 @@ unless (@files) {
 	}
 
 	@files = sort sortfunc @trivial;
-	@files = qw/ChangeLog/ unless @files;  # last resort to put something in the list
+
+	# last resort to put something in the list
+	unless (@files) {
+		@files = qw/ChangeLog/;
+		$actions{'ChangeLog'} = "";
+	}
 }
 
 # sort