Revision: 5504 http://geany.svn.sourceforge.net/geany/?rev=5504&view=rev Author: ntrel Date: 2010-12-30 18:13:21 +0000 (Thu, 30 Dec 2010)
Log Message: ----------- If only given an input filename and no match string, match all changelog entries.
Modified Paths: -------------- trunk/scripts/changelist.pl
Modified: trunk/scripts/changelist.pl =================================================================== --- trunk/scripts/changelist.pl 2010-12-30 17:49:22 UTC (rev 5503) +++ trunk/scripts/changelist.pl 2010-12-30 18:13:21 UTC (rev 5504) @@ -25,16 +25,27 @@ use warnings;
my $argc = $#ARGV + 1; +my ($matchstr, $infile);
-($argc == 2) or die <<END; +if ($argc == 1) +{ + ($infile) = @ARGV; + $matchstr = '.'; +} +elsif ($argc == 2) +{ + ($matchstr, $infile) = @ARGV; +} +else { + die <<END; Usage: +$0 changelogfile >outfile $0 matchstring changelogfile >outfile
- matchstring is not case sensitive. + matchstring is a case-insensitive regular expression, e.g. 'joe|fred'. END +}
-my ($matchstr, $infile) = @ARGV; - open(INPUT, $infile) or die "Couldn't open $infile for reading: $!\n";
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.