perl5005delta.1

视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.

other.  Perl decided to call the builtin because the subroutine is
not imported.
.Sp
To force interpretation as a subroutine call, either put an ampersand
before the subroutine name, or qualify the name with its package.
Alternatively, you can import the subroutine (or pretend that it's
imported with the \f(CW\*(C`use subs\*(C'\fR pragma).
.Sp
To silently interpret it as the Perl operator, use the \f(CW\*(C`CORE::\*(C'\fR prefix
on the operator (e.g. \f(CW\*(C`CORE::log($x)\*(C'\fR) or by declaring the subroutine
to be an object method (see attrs).
.IP "Bad index while coercing array into hash" 4
.IX Item "Bad index while coercing array into hash"
(F) The index looked up in the hash found as the 0'th element of a
pseudo-hash is not legal.  Index values must be at 1 or greater.
See perlref.
.ie n .IP "Bareword ""%s"" refers to nonexistent package" 4
.el .IP "Bareword ``%s'' refers to nonexistent package" 4
.IX Item "Bareword %s refers to nonexistent package"
(W) You used a qualified bareword of the form \f(CW\*(C`Foo::\*(C'\fR, but
the compiler saw no other uses of that namespace before that point.
Perhaps you need to predeclare a package?
.ie n .IP "Can't call method ""%s"" on an undefined value" 4
.el .IP "Can't call method ``%s'' on an undefined value" 4
.IX Item "Can't call method %s on an undefined value"
(F) You used the syntax of a method call, but the slot filled by the
object reference or package name contains an undefined value.
Something like this will reproduce the error:
.Sp
.Vb 3
\&    $BADREF = 42;
\&    process $BADREF 1,2,3;
\&    $BADREF\->process(1,2,3);
.Ve
.ie n .IP "Can't check filesystem of script ""%s"" for nosuid" 4
.el .IP "Can't check filesystem of script ``%s'' for nosuid" 4
.IX Item "Can't check filesystem of script %s for nosuid"
(P) For some reason you can't check the filesystem of the script for nosuid.
.IP "Can't coerce array into hash" 4
.IX Item "Can't coerce array into hash"
(F) You used an array where a hash was expected, but the array has no
information on how to map from keys to array indices.  You can do that
only with arrays that have a hash reference at index 0.
.IP "Can't goto subroutine from an eval-string" 4
.IX Item "Can't goto subroutine from an eval-string"
(F) The \*(L"goto subroutine\*(R" call can't be used to jump out of an eval \*(L"string\*(R".
(You can use it to jump out of an eval {\s-1BLOCK\s0}, but you probably don't want to.)
.IP "Can't localize pseudo-hash element" 4
.IX Item "Can't localize pseudo-hash element"
(F) You said something like \f(CW\*(C`local $ar\->{\*(Aqkey\*(Aq}\*(C'\fR, where \f(CW$ar\fR is
a reference to a pseudo-hash.  That hasn't been implemented yet, but
you can get a similar effect by localizing the corresponding array
element directly \*(-- \f(CW\*(C`local $ar\->[$ar\->[0]{\*(Aqkey\*(Aq}]\*(C'\fR.
.IP "Can't use %%! because Errno.pm is not available" 4
.IX Item "Can't use %%! because Errno.pm is not available"
(F) The first time the %! hash is used, perl automatically loads the
Errno.pm module. The Errno module is expected to tie the %! hash to
provide symbolic names for \f(CW$!\fR errno values.
.ie n .IP "Cannot find an opnumber for ""%s""" 4
.el .IP "Cannot find an opnumber for ``%s''" 4
.IX Item "Cannot find an opnumber for %s"
(F) A string of a form \f(CW\*(C`CORE::word\*(C'\fR was given to \fIprototype()\fR, but
there is no builtin with the name \f(CW\*(C`word\*(C'\fR.
.IP "Character class syntax [. .] is reserved for future extensions" 4
.IX Item "Character class syntax [. .] is reserved for future extensions"
(W) Within regular expression character classes ([]) the syntax beginning
with \*(L"[.\*(R" and ending with \*(L".]\*(R" is reserved for future extensions.
If you need to represent those character sequences inside a regular
expression character class, just quote the square brackets with the
backslash: \*(L"\e[.\*(R" and \*(L".\e]\*(R".
.IP "Character class syntax [: :] is reserved for future extensions" 4
.IX Item "Character class syntax [: :] is reserved for future extensions"
(W) Within regular expression character classes ([]) the syntax beginning
with \*(L"[:\*(R" and ending with \*(L":]\*(R" is reserved for future extensions.
If you need to represent those character sequences inside a regular
expression character class, just quote the square brackets with the
backslash: \*(L"\e[:\*(R" and \*(L":\e]\*(R".
.IP "Character class syntax [= =] is reserved for future extensions" 4
.IX Item "Character class syntax [= =] is reserved for future extensions"
(W) Within regular expression character classes ([]) the syntax
beginning with \*(L"[=\*(R" and ending with \*(L"=]\*(R" is reserved for future extensions.
If you need to represent those character sequences inside a regular
expression character class, just quote the square brackets with the
backslash: \*(L"\e[=\*(R" and \*(L"=\e]\*(R".
.ie n .IP "%s: Eval-group in insecure regular expression" 4
.el .IP "\f(CW%s:\fR Eval-group in insecure regular expression" 4
.IX Item "%s: Eval-group in insecure regular expression"
(F) Perl detected tainted data when trying to compile a regular expression
that contains the \f(CW\*(C`(?{ ... })\*(C'\fR zero-width assertion, which is unsafe.
See \*(L"(?{ code })\*(R" in perlre, and perlsec.
.ie n .IP "%s: Eval-group not allowed, use re 'eval'" 4
.el .IP "\f(CW%s:\fR Eval-group not allowed, use re 'eval'" 4
.IX Item "%s: Eval-group not allowed, use re 'eval'"
(F) A regular expression contained the \f(CW\*(C`(?{ ... })\*(C'\fR zero-width assertion,
but that construct is only allowed when the \f(CW\*(C`use re \*(Aqeval\*(Aq\*(C'\fR pragma is
in effect.  See \*(L"(?{ code })\*(R" in perlre.
.ie n .IP "%s: Eval-group not allowed at run time" 4
.el .IP "\f(CW%s:\fR Eval-group not allowed at run time" 4
.IX Item "%s: Eval-group not allowed at run time"
(F) Perl tried to compile a regular expression containing the \f(CW\*(C`(?{ ... })\*(C'\fR
zero-width assertion at run time, as it would when the pattern contains
interpolated values.  Since that is a security risk, it is not allowed.
If you insist, you may still do this by explicitly building the pattern
from an interpolated string at run time and using that in an \fIeval()\fR.
See \*(L"(?{ code })\*(R" in perlre.
.IP "Explicit blessing to '' (assuming package main)" 4
.IX Item "Explicit blessing to '' (assuming package main)"
(W) You are blessing a reference to a zero length string.  This has
the effect of blessing the reference into the package main.  This is
usually not what you want.  Consider providing a default target
package, e.g. bless($ref, \f(CW$p\fR || 'MyPackage');
.IP "Illegal hex digit ignored" 4
.IX Item "Illegal hex digit ignored"
(W) You may have tried to use a character other than 0 \- 9 or A \- F in a
hexadecimal number.  Interpretation of the hexadecimal number stopped
before the illegal character.
.IP "No such array field" 4
.IX Item "No such array field"
(F) You tried to access an array as a hash, but the field name used is
not defined.  The hash at index 0 should map all valid field names to
array indices for that to work.
.ie n .IP "No such field ""%s"" in variable %s\fR of type \f(CW%s" 4
.el .IP "No such field ``%s'' in variable \f(CW%s\fR of type \f(CW%s\fR" 4
.IX Item "No such field %s in variable %s of type %s"
(F) You tried to access a field of a typed variable where the type
does not know about the field name.  The field names are looked up in
the \f(CW%FIELDS\fR hash in the type package at compile time.  The \f(CW%FIELDS\fR hash
is usually set up with the 'fields' pragma.
.IP "Out of memory during ridiculously large request" 4
.IX Item "Out of memory during ridiculously large request"
(F) You can't allocate more than 2^31+\*(L"small amount\*(R" bytes.  This error
is most likely to be caused by a typo in the Perl program. e.g., \f(CW$arr[time]\fR
instead of \f(CW$arr[$time]\fR.
.IP "Range iterator outside integer range" 4
.IX Item "Range iterator outside integer range"
(F) One (or both) of the numeric arguments to the range operator \*(L"..\*(R"
are outside the range which can be represented by integers internally.
One possible workaround is to force Perl to use magical string
increment by prepending \*(L"0\*(R" to your numbers.
.ie n .IP "Recursive inheritance detected while looking for method '%s' %s" 4
.el .IP "Recursive inheritance detected while looking for method '%s' \f(CW%s\fR" 4
.IX Item "Recursive inheritance detected while looking for method '%s' %s"
(F) More than 100 levels of inheritance were encountered while invoking a
method.  Probably indicates an unintended loop in your inheritance hierarchy.
.IP "Reference found where even-sized list expected" 4
.IX Item "Reference found where even-sized list expected"
(W) You gave a single reference where Perl was expecting a list with
an even number of elements (for assignment to a hash). This
usually means that you used the anon hash constructor when you meant 
to use parens. In any case, a hash requires key/value \fBpairs\fR.
.Sp
.Vb 4
\&    %hash = { one => 1, two => 2, };   # WRONG
\&    %hash = [ qw/ an anon array / ];   # WRONG
\&    %hash = ( one => 1, two => 2, );   # right
\&    %hash = qw( one 1 two 2 );                 # also fine
.Ve
.IP "Undefined value assigned to typeglob" 4
.IX Item "Undefined value assigned to typeglob"
(W) An undefined value was assigned to a typeglob, a la \f(CW\*(C`*foo = undef\*(C'\fR.
This does nothing.  It's possible that you really mean \f(CW\*(C`undef *foo\*(C'\fR.
.ie n .IP "Use of reserved word ""%s"" is deprecated" 4
.el .IP "Use of reserved word ``%s'' is deprecated" 4
.IX Item "Use of reserved word %s is deprecated"
(D) The indicated bareword is a reserved word.  Future versions of perl
may use it as a keyword, so you're better off either explicitly quoting
the word in a manner appropriate for its context of use, or using a
different name altogether.  The warning can be suppressed for subroutine
names by either adding a \f(CW\*(C`&\*(C'\fR prefix, or using a package qualifier,
e.g. \f(CW\*(C`&our()\*(C'\fR, or \f(CW\*(C`Foo::our()\*(C'\fR.
.IP "perl: warning: Setting locale failed." 4
.IX Item "perl: warning: Setting locale failed."
(S) The whole warning message will look something like:
.Sp
.Vb 6
\&       perl: warning: Setting locale failed.
\&       perl: warning: Please check that your locale settings:
\&               LC_ALL = "En_US",
\&               LANG = (unset)
\&           are supported and installed on your system.
\&       perl: warning: Falling back to the standard locale ("C").
.Ve
.Sp
Exactly what were the failed locale settings varies.  In the above the
settings were that the \s-1LC_ALL\s0 was \*(L"En_US\*(R" and the \s-1LANG\s0 had no value.
This error means that Perl detected that you and/or your system
administrator have set up the so-called variable system but Perl could
not use those settings.  This was not dead serious, fortunately: there
is a \*(L"default locale\*(R" called \*(L"C\*(R" that Perl can and will use, the
script will be run.  Before you really fix the problem, however, you
will get the same error message each time you run Perl.  How to really
fix the problem can be found in \*(L"\s-1LOCALE\s0 \s-1PROBLEMS\s0\*(R" in perllocale.
.SH "Obsolete Diagnostics"
.IX Header "Obsolete Diagnostics"
.IP "Can't \fImktemp()\fR" 4
.IX Item "Can't mktemp()"
(F) The \fImktemp()\fR routine failed for some reason while trying to process
a \fB\-e\fR switch.  Maybe your /tmp partition is full, or clobbered.
.Sp
Removed because \fB\-e\fR doesn't use temporary files any more.
.ie n .IP "Can't write to temp file for \fB\-e\fR: %s" 4
.el .IP "Can't write to temp file for \fB\-e\fR: \f(CW%s\fR" 4
.IX Item "Can't write to temp file for -e: %s"
(F) The write routine failed for some reason while trying to process
a \fB\-e\fR switch.  Maybe your /tmp partition is full, or clobbered.
.Sp
Removed because \fB\-e\fR doesn't use temporary files any more.
.IP "Cannot open temporary file" 4
.IX Item "Cannot open temporary file"
(F) The create routine failed for some reason while trying to process
a \fB\-e\fR switch.  Maybe your /tmp partition is full, or clobbered.
.Sp
Removed because \fB\-e\fR doesn't use temporary files any more.
.IP "regexp too big" 4
.IX Item "regexp too big"
(F) The current implementation of regular expressions uses shorts as
address offsets within a string.  Unfortunately this means that if
the regular expression compiles to longer than 32767, it'll blow up.
Usually when you want a regular expression this big, there is a better
way to do it with multiple statements.  See perlre.
.SH "Configuration Changes"
.IX Header "Configuration Changes"
You can use \*(L"Configure \-Uinstallusrbinperl\*(R" which causes installperl
to skip installing perl also as /usr/bin/perl.  This is useful if you
prefer not to modify /usr/bin for some reason or another but harmful
because many scripts assume to find Perl in /usr/bin/perl.
.SH "BUGS"
.IX Header "BUGS"
If you find what you think is a bug, you might check the headers of
recently posted articles in the comp.lang.perl.misc newsgroup.
There may also be information at http://www.perl.com/perl/ , the Perl
Home Page.
.PP
If you believe you have an unreported bug, please run the \fBperlbug\fR
program included with your release.  Make sure you trim your bug down
to a tiny but sufficient test case.  Your bug report, along with the
output of \f(CW\*(C`perl \-V\*(C'\fR, will be sent off to <\[e-mail]\fR> to be
analysed by the Perl porting team.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
The \fIChanges\fR file for exhaustive details on what changed.
.PP
The \fI\s-1INSTALL\s0\fR file for how to build Perl.
.PP
The \fI\s-1README\s0\fR file for general stuff.
.PP
The \fIArtistic\fR and \fICopying\fR files for copyright information.
.SH "HISTORY"
.IX Header "HISTORY"
Written by Gurusamy Sarathy <\[e-mail]\fR>, with many contributions
from The Perl Porters.
.PP
Send omissions or corrections to <\[e-mail]\fR>.