SF.net SVN: geany:[5504] trunk/scripts/changelist.pl

[ntrel at users.sourceforge.net]

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.