iwai****@users*****
iwai****@users*****
2011年 2月 28日 (月) 08:04:10 JST
Index: helper-data/perl/s/strict.po diff -u helper-data/perl/s/strict.po:1.2 helper-data/perl/s/strict.po:1.3 --- helper-data/perl/s/strict.po:1.2 Mon Feb 28 07:54:21 2011 +++ helper-data/perl/s/strict.po Mon Feb 28 08:04:10 2011 @@ -5,7 +5,7 @@ msgid "" msgstr "" "Project-Id-Version: strict pragma\n" -"POT-Creation-Date: 2011-02-28 07:46+0900\n" +"POT-Creation-Date: 2011-02-28 08:02+0900\n" "PO-Revision-Date: 2011-02-28 07:53+0900\n" "Last-Translator: IWAI, Masaharu <iwaim****@gmail*****>\n" "Language-Team: JPRP <perld****@freem*****>\n" @@ -78,10 +78,10 @@ "programming.) Currently, there are three possible things to be strict " "about: \"subs\", \"vars\", and \"refs\"." msgstr "" -"インポートリストを与えない場合は、可能な限り全ての制約を受けます。 " -"(これは、最も安全な動作モードです。ただ、カジュアルプログラミング " -"のためには厳しすぎます。)今のところ、\"subs\"、\"vars\"、\"refs\" の " -"3つの制約が用意されています。" +"インポートリストを与えない場合は、可能な限り全ての制約を受けます。 (これは、" +"最も安全な動作モードです。ただ、カジュアルプログラミング のためには厳しすぎま" +"す。)今のところ、\"subs\"、\"vars\"、\"refs\" の 3つの制約が用意されていま" +"す。" #. type: =item #: strict.pod:25 @@ -140,8 +140,8 @@ #: strict.pod:43 msgid "is allowed so that C<goto &$AUTOLOAD> would not break under stricture." msgstr "" -"上記のものは許容されます。だから C<goto &$AUTOLOAD> はこの制約下でも " -"動きます。" +"上記のものは許容されます。だから C<goto &$AUTOLOAD> はこの制約下でも 動きま" +"す。" #. type: =item #: strict.pod:46 @@ -157,11 +157,10 @@ "dynamic scoping issues, a merely local() variable isn't good enough. See " "L<perlfunc/my> and L<perlfunc/local>." msgstr "" -"C<our> や C<use vars>、C<my()> で宣言された変数や完全に修飾された " -"変数以外にアクセスしたときにコンパイル時エラーを出します。 " -"変数が自殺してしまう問題や微表な動的スコープの問題があるため、 local() " -"変数だけでは十分ではありません。L<perlfunc/my> や L<perlfunc/local> " -"を見てください。" +"C<our> や C<use vars>、C<my()> で宣言された変数や完全に修飾された 変数以外に" +"アクセスしたときにコンパイル時エラーを出します。 変数が自殺してしまう問題や微" +"表な動的スコープの問題があるため、 local() 変数だけでは十分ではありません。" +"L<perlfunc/my> や L<perlfunc/local> を見てください。" #. type: verbatim #: strict.pod:55 @@ -199,8 +198,8 @@ "The local() generated a compile-time error because you just touched a global " "name without fully qualifying it." msgstr "" -"local() は、完全な修飾無しにグローバルな名前を触ってしまうため " -"コンパイル時エラーを出します。" +"local() は、完全な修飾無しにグローバルな名前を触ってしまうため コンパイル時エ" +"ラーを出します。" #. type: textblock #: strict.pod:67 @@ -208,8 +207,8 @@ "Because of their special use by sort(), the variables $a and $b are exempted " "from this check." msgstr "" -"sort() によって使われるという理由で $a と $b はこのチェックの " -"適用外という特別扱いになっています。" +"sort() によって使われるという理由で $a と $b はこのチェックの 適用外という特" +"別扱いになっています。" #. type: =item #: strict.pod:70 @@ -224,17 +223,23 @@ "simple identifier (no colons) and that it appears in curly braces or on the " "left hand side of the C<< => >> symbol." msgstr "" -"詩的な最適化を禁止し、サブルーチン以外の裸の識別子を使おうとしたときか、 " -"(コロンのない)単純な識別子や中括弧の中 C<< => >> シンボルの左側に " -"無いときにコンパイル時エラーを出します。" +"詩的な最適化を禁止し、サブルーチン以外の裸の識別子を使おうとしたときか、 (コ" +"ロンのない)単純な識別子や中括弧の中 C<< => >> シンボルの左側に 無いときにコ" +"ンパイル時エラーを出します。" #. type: verbatim #: strict.pod:77 -#, no-wrap +#, fuzzy, no-wrap +#| msgid "" +#| " use strict 'subs';\n" +#| " $SIG{PIPE} = Plumber; \t# blows up\n" +#| " $SIG{PIPE} = \"Plumber\"; \t# just fine: bareword in curlies always ok\n" +#| " $SIG{PIPE} = \\&Plumber; \t# preferred form\n" +#| "\n" msgid "" " use strict 'subs';\n" " $SIG{PIPE} = Plumber; \t# blows up\n" -" $SIG{PIPE} = \"Plumber\"; \t# just fine: bareword in curlies always ok\n" +" $SIG{PIPE} = \"Plumber\"; \t# just fine: quoted string is always ok\n" " $SIG{PIPE} = \\&Plumber; \t# preferred form\n" "\n" msgstr "" @@ -261,10 +266,10 @@ "compound identifier (e.g. C<Foo::Bar>) as a hash key (before C<< => >> or " "inside curlies), but without forcing it always to a literal string." msgstr "" -"Perl 5.6.1 での C<strict 'subs'> は、(C<< => >> の前や中括弧の中での) " -"ハッシュのキーのとしてクオートすることなしに(C<Foo::Bar> のような) " -"複合の識別子を使えるようにしてしまっています。このことは間違いでした。 " -"それは、いつでもリテラル文字列です。" +"Perl 5.6.1 での C<strict 'subs'> は、(C<< => >> の前や中括弧の中での) ハッ" +"シュのキーのとしてクオートすることなしに(C<Foo::Bar> のような) 複合の識別子" +"を使えるようにしてしまっています。このことは間違いでした。 それは、いつでもリ" +"テラル文字列です。" #. type: textblock #: strict.pod:92 @@ -272,9 +277,9 @@ "Starting with Perl 5.8.1 strict is strict about its restrictions: if unknown " "restrictions are used, the strict pragma will abort with" msgstr "" -"Perl 5.8.1 からの strict は、それらの制約事項について厳格です: " -"もし、知られていない制約事項が使われるならば、strict プラグマは、 " -"次にある記述と共に中断するでしょう。" +"Perl 5.8.1 からの strict は、それらの制約事項について厳格です: もし、知られて" +"いない制約事項が使われるならば、strict プラグマは、 次にある記述と共に中断す" +"るでしょう。" #. type: verbatim #: strict.pod:95 @@ -285,3 +290,10 @@ msgstr "" " Unknown 'strict' tag(s) '...'\n" "\n" + +#. type: textblock +#: strict.pod:97 +msgid "" +"As of version 1.04 (Perl 5.10), strict verifies that it is used as \"strict" +"\" to avoid the dreaded Strict trap on case insensitive file systems." +msgstr "" Index: helper-data/perl/s/strict.pod diff -u helper-data/perl/s/strict.pod:1.1 helper-data/perl/s/strict.pod:1.2 --- helper-data/perl/s/strict.pod:1.1 Mon Feb 28 07:27:50 2011 +++ helper-data/perl/s/strict.pod Mon Feb 28 08:04:10 2011 @@ -76,7 +76,7 @@ use strict 'subs'; $SIG{PIPE} = Plumber; # blows up - $SIG{PIPE} = "Plumber"; # just fine: bareword in curlies always ok + $SIG{PIPE} = "Plumber"; # just fine: quoted string is always ok $SIG{PIPE} = \&Plumber; # preferred form =back @@ -94,6 +94,10 @@ Unknown 'strict' tag(s) '...' +As of version 1.04 (Perl 5.10), strict verifies that it is used as +"strict" to avoid the dreaded Strict trap on case insensitive file +systems. + =cut