| 1 |
Author: idl0r |
| 2 |
Date: 2009-05-01 20:21:50 +0000 (Fri, 01 May 2009) |
| 3 |
New Revision: 572 |
| 4 |
|
| 5 |
Modified: |
| 6 |
trunk/src/echangelog/echangelog |
| 7 |
Log: |
| 8 |
Define a action if no files have been changed, thanks to grobian. That should prevent "Use of uninitialized value in concatenation" warnings. |
| 9 |
|
| 10 |
Modified: trunk/src/echangelog/echangelog |
| 11 |
=================================================================== |
| 12 |
--- trunk/src/echangelog/echangelog 2009-05-01 19:11:27 UTC (rev 571) |
| 13 |
+++ trunk/src/echangelog/echangelog 2009-05-01 20:21:50 UTC (rev 572) |
| 14 |
@@ -458,7 +458,12 @@ |
| 15 |
} |
| 16 |
|
| 17 |
@files = sort sortfunc @trivial; |
| 18 |
- @files = qw/ChangeLog/ unless @files; # last resort to put something in the list |
| 19 |
+ |
| 20 |
+ # last resort to put something in the list |
| 21 |
+ unless (@files) { |
| 22 |
+ @files = qw/ChangeLog/; |
| 23 |
+ $actions{'ChangeLog'} = ""; |
| 24 |
+ } |
| 25 |
} |
| 26 |
|
| 27 |
# sort |
Archives