argra****@users*****
argra****@users*****
2008年 12月 9日 (火) 02:15:37 JST
Index: docs/perl/5.10.0/perlapi.pod
diff -u docs/perl/5.10.0/perlapi.pod:1.1 docs/perl/5.10.0/perlapi.pod:1.2
--- docs/perl/5.10.0/perlapi.pod:1.1 Mon Dec 8 18:15:49 2008
+++ docs/perl/5.10.0/perlapi.pod Tue Dec 9 02:15:36 2008
@@ -78,8 +78,8 @@
C<G_SCALAR> か C<G_ARRAY> しか返さないような C<GIMME_V> の、
過去互換性のためのものです。
無効コンテキストでは、これは C<G_SCALAR> を返します。
-Deprecated. Use C<GIMME_V> instead.
-(TBT)
+非推奨です。
+代わりに C<GIMME_V> を使ってください。
U32 GIMME
@@ -217,8 +217,8 @@
=end original
-Same as C<av_len()>. Deprecated, use C<av_len()> instead.
-(TBT)
+C<av_len()> と同様です。
+非推奨なので、代わりに C<av_len()> を使ってください。
int AvFILL(AV* av)
@@ -452,10 +452,8 @@
=end original
配列中で最大の添え字を返します。
-The number of elements in the
-array is C<av_len(av) + 1>.
+配列の要素数は C<av_len(av) + 1> です。
配列が空である場合には -1 を返します。
-(TBT)
I32 av_len(const AV* ar)
@@ -637,8 +635,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
AV* get_av(const char* name, I32 create)
@@ -733,8 +730,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
I32 call_argv(const char* sub_name, I32 flags, char** argv)
@@ -761,8 +757,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
I32 call_method(const char* methname, I32 flags)
@@ -787,8 +782,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
I32 call_pv(const char* sub_name, I32 flags)
@@ -815,8 +809,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
I32 call_sv(SV* sv, I32 flags)
@@ -858,8 +851,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
SV* eval_pv(const char* p, I32 croak_on_error)
@@ -883,8 +875,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
I32 eval_sv(SV* sv, I32 flags)
@@ -1226,8 +1217,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
CV* get_cv(const char* name, I32 flags)
@@ -1260,8 +1250,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
CV* get_cvn_flags(const char* name, STRLEN len, I32 flags)
@@ -1471,8 +1460,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
void require_pv(const char* pv)
@@ -1497,8 +1485,7 @@
=end original
-Similar to
-(TBT)
+以下と似ています:
pv_escape(dsv,pv,cur,pvlim,PERL_PV_ESCAPE_QUOTE);
@@ -1647,8 +1634,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
char* pv_escape(SV *dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags)
@@ -1731,8 +1717,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
char* pv_pretty(SV *dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags)
@@ -1754,8 +1739,7 @@
=end original
-See L<gv_fetchmethod_autoload>.
-(TBT)
+L<gv_fetchmethod_autoload> を参照してください。
GV* gv_fetchmethod(HV* stash, const char* name)
@@ -1801,8 +1785,7 @@
=end original
-Usually accessed via the C<SvPVbyte_nolen> macro.
-(TBT)
+通常は C<SvPVbyte_nolen> マクロ経由でアクセスします。
char* sv_2pvbyte_nolen(SV* sv)
@@ -1829,8 +1812,7 @@
=end original
-Usually accessed via the C<SvPVutf8_nolen> macro.
-(TBT)
+通常は C<SvPVutf8_nolen> マクロ経由でアクセスします。
char* sv_2pvutf8_nolen(SV* sv)
@@ -1950,8 +1932,7 @@
=end original
-"Superseded" by sv_nosharing().
-(TBT)
+sv_nosharing() で「置き換え」られました。
void sv_nolocking(SV *sv)
@@ -1980,8 +1961,7 @@
=end original
-"Superseded" by sv_nosharing().
-(TBT)
+sv_nosharing() で「置き換え」られました。
void sv_nounlocking(SV *sv)
@@ -2016,8 +1996,7 @@
=end original
-Use the C<SvPV_nolen> macro instead
-(TBT)
+代わりに C<SvPV_nolen> マクロを使ってください。
char* sv_pv(SV *sv)
@@ -2033,8 +2012,7 @@
=end original
-Use C<SvPVbyte_nolen> instead.
-(TBT)
+代わりに C<SvPVbyte_nolen> マクロを使ってください。
char* sv_pvbyte(SV *sv)
@@ -2090,8 +2068,7 @@
=end original
-Use the C<SvPVutf8_nolen> macro instead
-(TBT)
+代わりに C<SvPVutf8_nolen> マクロを使ってください。
char* sv_pvutf8(SV *sv)
@@ -2128,8 +2105,8 @@
=end original
-Taint an SV. Use C<SvTAINTED_on> instead.
-(TBT)
+SV を汚染します。
+代わりに C<SvTAINTED_on> を使ってください。
void sv_taint(SV* sv)
@@ -2151,10 +2128,8 @@
SV の RV ステータスをアンセットし、RV によって参照されているものの
参照カウントを減じます。
これは C<newSVrv> の反転したものであると考えられます。
-This is C<sv_unref_flags> with the C<flag>
-being zero.
+これは、C<flag> がゼロのときの C<sv_unref_flags> です。
C<SvROK_off> を参照してください。
-(TBT)
void sv_unref(SV* sv)
@@ -2706,8 +2681,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
HV* get_hv(const char* name, I32 create)
@@ -7134,8 +7108,7 @@
=end original
-NOTE: the perl_ form of this function is deprecated.
-(TBT)
+注意: この関数の perl_ の形は非推奨です。
SV* get_sv(const char* name, I32 create)
Index: docs/perl/5.10.0/perlvar.pod
diff -u docs/perl/5.10.0/perlvar.pod:1.8 docs/perl/5.10.0/perlvar.pod:1.9
--- docs/perl/5.10.0/perlvar.pod:1.8 Thu Dec 4 02:11:11 2008
+++ docs/perl/5.10.0/perlvar.pod Tue Dec 9 02:15:36 2008
@@ -1780,16 +1780,17 @@
=end original
-Each element of C<%!> has a true value only if C<$!> is set to that
-value. For example, C<$!{ENOENT}> is true if and only if the current
-value of C<$!> is C<ENOENT>; that is, if the most recent error was
-"No such file or directory" (or its moral equivalent: not all operating
-systems give that exact error, and certainly not all languages).
-To check if a particular key is meaningful on your system, use
-C<exists $!{the_key}>; for a list of legal keys, use C<keys %!>.
-See L<Errno> for more information, and also see above for the
-validity of C<$!>.
-(TBT)
+C<%!> の各要素は、C<$!> がその値にセットされている場合にのみ真の値を
+持ちます。
+例えば、C<$!{ENOENT}> は、現在の C<$!> の値が C<ENOENT> の場合にのみ
+真となります; これは、最近のエラーが
+"No such file or directory" (あるいは倫理的に等価なもの: 全ての OS が正確に
+同じエラーを出すわけではないですし、全ての言語で出るわけでもありません) の
+場合です。
+あなたのシステムで特定のキーが意味があるかどうかを調べるには、
+C<exists $!{the_key}> を使ってください; 有効なキーのリストを得るには、
+C<keys %!> としてください。
+さらなる情報と、C<$!> のバラエティに関しては、L<Errno> を参照してください。
=item $EXTENDED_OS_ERROR
@@ -2215,12 +2216,11 @@
=end original
-In some platforms there may be arbitrary amount of padding, for
-example space characters, after the modified name as shown by C<ps>.
-In some platforms this padding may extend all the way to the original
-length of the argument area, no matter what you do (this is the case
-for example with Linux 2.2).
-(TBT)
+プラットフォームによっては、任意の量のパッディングがある場合があります;
+例えば、C<ps> で見られる修正された名前の後の空白文字です。
+プラットフォームによっては、このパッディングは、あなたが何をしたかに
+関わらず、元の引数のエリア全体に拡張されるものもあります
+(例えば、これは Linux 2.2 の場合です)。
=begin original
@@ -2250,12 +2250,11 @@
=end original
-In multithreaded scripts Perl coordinates the threads so that any
-thread may modify its copy of the C<$0> and the change becomes visible
-to ps(1) (assuming the operating system plays along).
+マルチスレッドスクリプトでは、どのスレッドも自身の C<$0> のコピーを
+変更できて、その変更が(OS が対応しているとして) ps(1) で見えるように、
+Perl がスレッドを調整します。
他のスレッドが持っている C<$0> の見え方は(各自が自身のコピーを
持っているので)変わらないことに注意してください。
-(TBT)
=item $[
X<$[>