Commit db3cd0ae authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(main, parse_changelog): Make "use strict"-clean.

parent cdfc07dd
#! /usr/bin/perl #! /usr/bin/perl
# $Id: grep-changelog,v 1.5 2001/07/20 10:02:06 gerd Exp $ # $Id: grep-changelog,v 1.6 2001/07/20 10:04:17 gerd Exp $
# Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
# #
...@@ -27,19 +27,23 @@ ...@@ -27,19 +27,23 @@
# author lines leading spaces, and file names are removed. # author lines leading spaces, and file names are removed.
require 5; require 5;
use strict;
# Parse command line options. # Parse command line options.
use vars qw($author $regexp $exclude $from_date $to_date
$rcs_log $with_date $version $help);
use Getopt::Long; use Getopt::Long;
$result = GetOptions ("author=s" => \$author, my $result = GetOptions ("author=s" => \$author,
"text=s" => \$regexp, "text=s" => \$regexp,
"exclude=s" => \$exclude, "exclude=s" => \$exclude,
"from-date=s" => \$from_date, "from-date=s" => \$from_date,
"to-date=s" => \$to_date, "to-date=s" => \$to_date,
"rcs-log" => \$rcs_log, "rcs-log" => \$rcs_log,
"with-date" => \$with_date, "with-date" => \$with_date,
"version" => \$version, "version" => \$version,
"help" => \$help); "help" => \$help);
# If date options are specified, check that they have the format # If date options are specified, check that they have the format
# YYYY-MM-DD. # YYYY-MM-DD.
...@@ -161,13 +165,14 @@ sub print_log ($$) { ...@@ -161,13 +165,14 @@ sub print_log ($$) {
sub parse_changelog ($) { sub parse_changelog ($) {
my $log = shift; my $log = shift;
my $entry; my $entry = undef;
my $header = undef;
my $match; my $match;
# Open the ChangeLog. # Open the ChangeLog.
open (IN, "< $log") || die "Cannot open $log: $!"; open (IN, "< $log") || die "Cannot open $log: $!";
while ($line = <IN>) { while (defined(my $line = <IN>)) {
if ($line =~ /^\S/) { if ($line =~ /^\S/) {
# Line is an author-line. Print previous entry if # Line is an author-line. Print previous entry if
# it matches. # it matches.
...@@ -209,14 +214,14 @@ sub parse_changelog ($) { ...@@ -209,14 +214,14 @@ sub parse_changelog ($) {
if (@ARGV > 0) { if (@ARGV > 0) {
# If files were specified on the command line, parse those files. # If files were specified on the command line, parse those files.
while ($log = shift @ARGV) { while (defined(my $log = shift @ARGV)) {
parse_changelog ($log); parse_changelog ($log);
} }
} else { } else {
# Parse default files ChangeLog and ChangeLog.9...ChangeLog.1 in # Parse default files ChangeLog and ChangeLog.9...ChangeLog.1 in
# that order. # that order.
parse_changelog ("ChangeLog"); parse_changelog ("ChangeLog");
for ($i = 9; $i >= 1; --$i) { for (my $i = 9; $i >= 1; --$i) {
my $log = "ChangeLog.$i"; my $log = "ChangeLog.$i";
parse_changelog ($log) if -f $log; parse_changelog ($log) if -f $log;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment