diff options
author | Jun-ichiro itojun Hagino <itojun@FreeBSD.org> | 1999-04-22 05:37:46 +0000 |
---|---|---|
committer | Jun-ichiro itojun Hagino <itojun@FreeBSD.org> | 1999-04-22 05:37:46 +0000 |
commit | bd430b955e3ba65af6a6985a5f28452ef35321d1 (patch) | |
tree | e379f37cab6035ae37db101e1be7ae8ac097f3b7 /devel/portlint/src | |
parent | gtk11-devel -> gtk12 (diff) |
remove the first comment lines in a section properly.
Notes
Notes:
svn path=/head/; revision=18069
Diffstat (limited to 'devel/portlint/src')
-rw-r--r-- | devel/portlint/src/portlint.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/devel/portlint/src/portlint.pl b/devel/portlint/src/portlint.pl index c257e4235d9e..fdeede98aa58 100644 --- a/devel/portlint/src/portlint.pl +++ b/devel/portlint/src/portlint.pl @@ -13,7 +13,7 @@ # bsd.port.mk. There are significant differences in those so you'll have # hard time upgrading this... # -# $Id: portlint.pl,v 1.4 1999/04/02 03:24:13 steve Exp $ +# $Id: portlint.pl,v 1.5 1999/04/04 21:35:10 steve Exp $ # $err = $warn = 0; @@ -654,9 +654,11 @@ EOF # for the rest of the checks, comment lines are not important. # for ($i = 0; $i < scalar(@sections); $i++) { + $sections[$i] = "\n" . $sections[$i]; $sections[$i] =~ s/\n#[^\n]*//g; $sections[$i] =~ s/\n\n+/\n/g; $sections[$i] =~ s/\\\n/ /g; + $sections[$i] =~ s/^\n//; } # |