gallery/in-Action/mkact.pl: 1.4 -> 1.5

[kano@na.rim.or.jp (OKANO Takayoshi)]

以下のページの更新をしました。

gallery/in-Action/mkact.pl: 1.4 -> 1.5

> revision 1.5
> date: 2007/01/24 04:21:28;  author: rillig;  state: Exp;  lines: +7 -1
> Autogenerated files that have non-obvious file extensions should say
> that they are, to prevent people from editing them.

原文の変更をそのまま訳に反映しています。
すぐに commit します。

以下、訳と原文それぞれの新旧の差分です。

--- gallery/in-Action/mkact.pl.orig	2007-01-25 00:42:27.000000000 +0900
+++ gallery/in-Action/mkact.pl	2007-01-25 00:42:27.000000000 +0900
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
-#	$NetBSD: mkact.pl,v 1.4 2003/01/02 00:36:49 jschauma Exp $
+#	$NetBSD: mkact.pl,v 1.5 2007/01/24 04:21:28 rillig Exp $
 #	<!-- Based on english version: -->
-#	<!-- NetBSD: mkact.pl,v 1.4 2003/01/02 00:36:49 jschauma Exp   -->
+#	<!-- NetBSD: mkact.pl,v 1.5 2007/01/24 04:21:28 rillig Exp   -->
 #
 # Reads index.act-template, and inserts and entries of the form
 # @@@ENTRY: whatever            # comments are possible
@@ -26,7 +26,13 @@
     close(F);
 }
 
+my $lineno = 0;
 while(<>) {
+    $lineno++;
+
+    if ($lineno == 2) {
+	print "<!-- This file has been autogenerated by mkact.pl. -->\n";
+    }
 
     if (/\@\@\@ENTRY: (\S*)\s+(\S*)/) {
 	$entry=$1;
Index: gallery/in-Action/mkact.pl
===================================================================
RCS file: /cvsroot/htdocs/gallery/in-Action/mkact.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- gallery/in-Action/mkact.pl	2 Jan 2003 00:36:49 -0000	1.4
+++ gallery/in-Action/mkact.pl	24 Jan 2007 04:21:28 -0000	1.5
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-#	$NetBSD: mkact.pl,v 1.4 2003/01/02 00:36:49 jschauma Exp $
+#	$NetBSD: mkact.pl,v 1.5 2007/01/24 04:21:28 rillig Exp $
 #
 # Reads index.act-template, and inserts and entries of the form
 # @@@ENTRY: whatever            # comments are possible
@@ -20,7 +20,13 @@
     close(F);
 }
 
+my $lineno = 0;
 while(<>) {
+    $lineno++;
+
+    if ($lineno == 2) {
+	print "<!-- This file has been autogenerated by mkact.pl. -->\n";
+    }
 
     if (/\@\@\@ENTRY: (\S*)\s+(\S*)/) {
 	$entry=$1;