argra****@users*****
argra****@users*****
2014年 9月 16日 (火) 04:59:18 JST
Index: docs/perl/5.18.1/perldiag.pod
diff -u docs/perl/5.18.1/perldiag.pod:1.3 docs/perl/5.18.1/perldiag.pod:1.4
--- docs/perl/5.18.1/perldiag.pod:1.3 Sat Aug 9 06:13:43 2014
+++ docs/perl/5.18.1/perldiag.pod Tue Sep 16 04:59:17 2014
@@ -2348,14 +2348,12 @@
=end original
-(W) A module passed the flag 0x01 to DynaLoader::dl_load_file() to request
-that symbols from the stated file are made available globally within the
-process,
-しかしこの機能はこのプラットフォームでは利用できません。
-モジュールはおそらく動作しますが、this may prevent the perl interpreter
-from loading other XS-based extensions which need to link directly to
-functions defined in the C or XS code in the stated file.
-(TBT)
+(W) モジュールが、プロセスの中でグローバルに利用可能な固定ファイルから
+シンボルを読み込むことを要求するために、DynaLoader::dl_load_file() に
+0x01 フラグを渡しましたが、この機能はこのプラットフォームでは利用できません。
+モジュールはおそらく動作しますが、perl インタプリタによる、固定ファイルの C や
+XS コードで定義された関数へ直接リンクする必要のあるその他の XS ベースの
+エクステンションの読み込みが妨げられるかもしれません。
=item Can't modify %s in %s
@@ -5129,14 +5127,15 @@
=end original
-(S inplace) The C<-i> option was passed on the command line, indicating
-that the script is intended to edit files inplace, but no files were
-given. This is usually a mistake, since editing STDIN inplace doesn't
-make sense, and can be confusing because it can make perl look like
-it is hanging when it is really just trying to read from STDIN. You
-should either pass a filename to edit, or remove C<-i> from the command
-line. See L<perlrun> for more details.
-(TBT)
+(S inplace) The C<-i> オプションがコマンドラインで渡されました; これは
+スクリプトがファイルをその場で編集することを示していますが、ファイルが
+指定されませんでした。
+これは普通はミスです; STDIN をその場で編集するというのは無意味ですし、
+本当に単に STDIN から読み込もうとしているだけのときに perl が
+ハングしているように見えることがあるので混乱を引き起こします。
+編集するファイル名を指定するか、コマンドラインから C<-i> を
+取り除いてください。
+さらなる詳細については L<perlrun> を参照してください。
=item Identifier too long
@@ -5446,13 +5445,11 @@
=end original
(D regexp, deprecated)
-The two-character sequence C<"(*"> in this context in a regular
-expression pattern should be an indivisible token, with nothing
-intervening between the C<"("> and the C<"*">, but you separated them.
-Due to an accident of implementation, this prohibition was not enforced,
-but we do plan to forbid it in a future Perl version. This message
-serves as giving you fair warning of this pending change.
-(TBT)
+正規表現中のこのコンテキストでの 2 文字並び C<"(*"> は分割できないトークンで、
+C<"("> と C<"*"> の間には何も入らないはずですが、これを分割しました。
+実装上の偶然により、この禁止事項は強制されていませんでしたが、将来の Perl
+バージョンでは禁止する計画です。
+このメッセージは、この補注中の変更を警告するためのものです。
=item In '(?...)', splitting the initial '(?' is deprecated in regex; marked by <-- HERE in m/%s/
@@ -5469,13 +5466,11 @@
=end original
(D regexp, deprecated)
-The two-character sequence C<"(?"> in this context in a regular
-expression pattern should be an indivisible token, with nothing
-intervening between the C<"("> and the C<"?">, but you separated them.
-Due to an accident of implementation, this prohibition was not enforced,
-but we do plan to forbid it in a future Perl version. This message
-serves as giving you fair warning of this pending change.
-(TBT)
+正規表現中のこのコンテキストでの 2 文字並び C<"(?"> は分割できないトークンで、
+C<"("> と C<"?"> の間には何も入らないはずですが、これを分割しました。
+実装上の偶然により、この禁止事項は強制されていませんでしたが、将来の Perl
+バージョンでは禁止する計画です。
+このメッセージは、この補注中の変更を警告するためのものです。
=item Incomplete expression within '(?[ ])' in regex; marked by <-- HERE in m/%s/
@@ -8128,11 +8123,9 @@
=end original
(F)
-C<(?[...])> cannot be used within the scope of a C<S<use locale>> or
-with an C</l> regular expression modifier, as that would require
-deferring to run-time the calculation of what it should evaluate to, and
-it is regex compile-time only.
-(TBT)
+C<(?[...])> は C<S<use locale>> のスコープ内や C</l> 正規表現修飾子付きでは
+使えません; これは何を評価するべきかを実行時の計算によりますが、
+これは正規表現のコンパイル時のみだからです。
=item Null filename used
@@ -8143,8 +8136,8 @@
=end original
-(F) 特に、多くのマシンでカレントディレクトリを意味するため、
-空のファイル名は require できません!
+(F) 空のファイル名は require できません; 特に、多くのマシンでは
+カレントディレクトリを意味するからです!
L<perlfunc/require> を参照してください。
=item NULL OP IN RUN
@@ -8247,12 +8240,11 @@
=end original
-(W syntax) The package variables $a and $b are used for sort comparisons.
-You used $a or $b in as an operand to the C<< <=> >> or C<cmp> operator inside a
-sort comparison block, and the variable had earlier been declared as a
-lexical variable. Either qualify the sort variable with the package
-name, or rename the lexical variable.
-(TBT)
+(W syntax) パッケージ変数 $a と $b はソート比較のために使われます。
+$a または $b をソート比較ブロックの中の C<< <=> >> または C<cmp> 演算子の
+オペランドとして使いましたが、この変数はその前にレキシカル変数として
+宣言されています。
+ソート変数をパッケージ名で修飾するか、レキシカル変数の名前を変えてください。
=item Octal number > 037777777777 non-portable
@@ -9409,15 +9401,13 @@
(D deprecated, utf8) このメッセージは、Perl コアまたは XS コードにバグが
あることを示しています。
-Such code was trying to find out if a character,
-allegedly stored internally encoded as UTF-8, was of a given type, such
-as being punctuation or a digit.
+このコードは、内部で UTF-8 にエンコードしているとされている文字が、
+句読点や数字といった特定の種類かどうかを調べようとしました。
しかしその文字は正当な UTF-8 としてエンコードされていませんでした。
C<%s> は、知識のある人々がチェックするべき型を決定するために使われる文字列で
置き換えられます。
C<utf8> 警告が有効なら、不正な形の詳細が記されたさらなるメッセージが
出力されます。
-(TBT)
=item Pattern subroutine nesting without pos change exceeded limit in regex;
marked by <-- HERE in m/%s/
@@ -11951,11 +11941,9 @@
(S experimental::lexical_subs) この警告は、サブルーチンを C<my> または
C<state> で宣言すると出力されます。
-Simply suppress the warning
-if you want to use the feature, but know that in doing so you
-are taking the risk of using an experimental feature which may
-change or be removed in a future Perl version:
-(TBT)
+この機能を使いたいけれども、そうすることで将来の Perl バージョンで
+変更されるかもしれない実験的機能を使うリスクを取ることを分かっている場合は、
+単に警告を抑制してください:
no warnings "experimental::lexical_subs";
use feature "lexical_subs";
@@ -11977,12 +11965,10 @@
(S experimental::regex_sets) この警告は、正規表現で S<C<(?[ ])>> 構文を
使うと出力されます。
-The details of this feature are subject to change.
-if you want to use it, but know that in doing so you
-are taking the risk of using an experimental feature which may
-change in a future Perl version, you can do this to silence the
-warning:
-(TBT)
+この機能の詳細は変更されることがあります。
+この機能を使いたいけれども、そうすることで将来の Perl バージョンで
+変更されるかもしれない実験的機能を使うリスクを取ることを分かっている場合は、
+以下のようにして警告を黙らせられます:
no warnings "experimental::regex_sets";
@@ -12000,11 +11986,9 @@
(S experimental) この警告は、C<use feature> 経由で実験的機能を有効にすると
出力されます。
-Simply suppress the warning if you want
-to use the feature, but know that in doing so you are taking the risk
-of using an experimental feature which may change or be removed in a
-future Perl version:
-(TBT)
+この機能を使いたいけれども、そうすることで将来の Perl バージョンで
+変更されるかもしれない実験的機能を使うリスクを取ることを分かっている場合は、
+単に警告を抑制してください:
no warnings "experimental::lexical_subs";
use feature "lexical_subs";
@@ -12082,12 +12066,11 @@
=end original
-(F) Something has attempted to use an internal API call which
-depends on Perl being compiled with the default support for randomized hash
-key traversal, but this Perl has been compiled without it.
+(F) 何かが、Perl がデフォルトで対応しているランダム化されたハッシュキー検索に
+依存した 内部 API 呼び出しを使おうとしましたが、この Perl はそれなしで
+コンパイルされていました。
この警告を関係する上流グループに報告するか、デフォルトオプションで perl を
再コンパイルしてください。
-(TBT)
=item thread failed to start: %s
@@ -12319,12 +12302,12 @@
=end original
-(D) You defined a character name which ended in a space character.
-Remove the trailing space(s). Usually these names are defined in the
-C<:alias> import argument to C<use charnames>, but they could be defined
-by a translator installed into C<$^H{charnames}>.
-See L<charnames/CUSTOM ALIASES>.
-(TBT)
+(D) スペース文字で終わる文字名を定義しました。
+末尾のスペースを取り除いてください。
+普通はこれらの名前は C<use charnames> の C<:alias> インポート引数で
+定義されますが、C<$^H{charnames}> にインストールされた変換器でも
+定義できます。
+L<charnames/CUSTOM ALIASES> を参照してください。
=item Transliteration pattern not terminated
@@ -12336,7 +12319,7 @@
=end original
-(F) tr///, tr[][], y///, y[][] 構文の真ん中の区切り文字が
+(F) tr///, tr[][], y///, y[][] 構文の真ん中の区切り文字が
見つかりませんでした。
C<$tr> 変数 や C<$y> 変数の前に C<$> をつけるのを忘れると
このエラーが出ることがあります。
@@ -12635,10 +12618,8 @@
=end original
-There should be an operator before the C<"(">, as there's no indication
-as to how the digits are to be combined with the characters in the Lao
-and Thai scripts.
-(TBT)
+これらは C<"("> の前の演算子であるべきです; ラオ語やタイ語で数字とこれらの
+文字がどのように結びつくかの指示がないからです。
=item Unexpected ')' in regex; marked by <-- HERE in m/%s/
@@ -12905,12 +12886,11 @@
=end original
-(F) Alphanumerics immediately following the closing delimiter
-of a regular expression pattern are interpreted by Perl as modifier
-flags for the regex. One of the ones you specified is invalid. One way
-this can happen is if you didn't put in white space between the end of
-the regex and a following alphanumeric operator:
-(TBT)
+(F) 正規表現で、閉じデリミタの直後の英数字は Perl によって正規表現への
+修飾子フラグと解釈されます。
+その一つが不正でした。
+これが起きる一つの可能性は、正規表現の終わりと引き続く英数字演算子の間に
+空白を置いていない場合です:
if ($a =~ /foo/and $bar == 3) { ... }
@@ -13164,10 +13144,8 @@
=end original
(F)
-You used a backslash-character combination which is not recognized by
-Perl inside character classes. This is a fatal error when the character
-class is used within C<(?[ ])>.
-(TBT)
+Perl の内部文字クラスとして認識されない逆スラッシュ文字並びを使いました。
+これは文字クラスが C<(?[ ])> の中で使われた時は致命的エラーです。
=item Unrecognized escape \%c in character class passed through in regex;
marked by <-- HERE in m/%s/