perldiag.1

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

impose a one-argument limit on the #! line, try combining switches;
for example, turn \f(CW\*(C`\-w \-U\*(C'\fR into \f(CW\*(C`\-wU\*(C'\fR.
.IP "Arg too short for msgsnd" 4
.IX Item "Arg too short for msgsnd"
(F) \fImsgsnd()\fR requires a string at least as long as sizeof(long).
.ie n .IP "%s argument is not a \s-1HASH\s0 or \s-1ARRAY\s0 element" 4
.el .IP "\f(CW%s\fR argument is not a \s-1HASH\s0 or \s-1ARRAY\s0 element" 4
.IX Item "%s argument is not a HASH or ARRAY element"
(F) The argument to \fIexists()\fR must be a hash or array element or a
subroutine with an ampersand, such as:
.Sp
.Vb 3
\&    $foo{$bar}
\&    $ref\->{"susie"}[12]
\&    &do_something
.Ve
.ie n .IP "%s argument is not a \s-1HASH\s0 or \s-1ARRAY\s0 element or slice" 4
.el .IP "\f(CW%s\fR argument is not a \s-1HASH\s0 or \s-1ARRAY\s0 element or slice" 4
.IX Item "%s argument is not a HASH or ARRAY element or slice"
(F) The argument to \fIdelete()\fR must be either a hash or array element,
such as:
.Sp
.Vb 2
\&    $foo{$bar}
\&    $ref\->{"susie"}[12]
.Ve
.Sp
or a hash or array slice, such as:
.Sp
.Vb 2
\&    @foo[$bar, $baz, $xyzzy]
\&    @{$ref\->[12]}{"susie", "queue"}
.Ve
.ie n .IP "%s argument is not a subroutine name" 4
.el .IP "\f(CW%s\fR argument is not a subroutine name" 4
.IX Item "%s argument is not a subroutine name"
(F) The argument to \fIexists()\fR for \f(CW\*(C`exists &sub\*(C'\fR must be a subroutine
name, and not a subroutine call.  \f(CW\*(C`exists &sub()\*(C'\fR will generate this
error.
.ie n .IP "Argument ""%s"" isn't numeric%s" 4
.el .IP "Argument ``%s'' isn't numeric%s" 4
.IX Item "Argument %s isn't numeric%s"
(W numeric) The indicated string was fed as an argument to an operator
that expected a numeric value instead.  If you're fortunate the message
will identify which operator was so unfortunate.
.ie n .IP "Argument list not closed for PerlIO layer ""%s""" 4
.el .IP "Argument list not closed for PerlIO layer ``%s''" 4
.IX Item "Argument list not closed for PerlIO layer %s"
(W layer) When pushing a layer with arguments onto the Perl I/O system you
forgot the ) that closes the argument list.  (Layers take care of transforming
data between external and internal representations.)  Perl stopped parsing
the layer list at this point and did not attempt to push this layer.
If your program didn't explicitly request the failing operation, it may be
the result of the value of the environment variable \s-1PERLIO\s0.
.ie n .IP "Array @%s missing the @ in argument %d of %s()" 4
.el .IP "Array @%s missing the @ in argument \f(CW%d\fR of %s()" 4
.IX Item "Array @%s missing the @ in argument %d of %s()"
(D deprecated) Really old Perl let you omit the @ on array names in some
spots.  This is now heavily deprecated.
.ie n .IP "assertion botched: %s" 4
.el .IP "assertion botched: \f(CW%s\fR" 4
.IX Item "assertion botched: %s"
(P) The malloc package that comes with Perl had an internal failure.
.ie n .IP "Assertion failed: file ""%s""" 4
.el .IP "Assertion failed: file ``%s''" 4
.IX Item "Assertion failed: file %s"
(P) A general assertion failed.  The file in question must be examined.
.IP "Assignment to both a list and a scalar" 4
.IX Item "Assignment to both a list and a scalar"
(F) If you assign to a conditional operator, the 2nd and 3rd arguments
must either both be scalars or both be lists.  Otherwise Perl won't
know which context to supply to the right side.
.ie n .IP "A thread exited while %d threads were running" 4
.el .IP "A thread exited while \f(CW%d\fR threads were running" 4
.IX Item "A thread exited while %d threads were running"
(W threads)(S) When using threaded Perl, a thread (not necessarily the main
thread) exited while there were still other threads running.
Usually it's a good idea to first collect the return values of the
created threads by joining them, and only then exit from the main
thread.  See threads.
.IP "Attempt to access disallowed key '%s' in a restricted hash" 4
.IX Item "Attempt to access disallowed key '%s' in a restricted hash"
(F) The failing code has attempted to get or set a key which is not in
the current set of allowed keys of a restricted hash.
.IP "Attempt to bless into a reference" 4
.IX Item "Attempt to bless into a reference"
(F) The \s-1CLASSNAME\s0 argument to the \fIbless()\fR operator is expected to be
the name of the package to bless the resulting object into. You've
supplied instead a reference to something: perhaps you wrote
.Sp
.Vb 1
\&    bless $self, $proto;
.Ve
.Sp
when you intended
.Sp
.Vb 1
\&    bless $self, ref($proto) || $proto;
.Ve
.Sp
If you actually want to bless into the stringified version
of the reference supplied, you need to stringify it yourself, for
example by:
.Sp
.Vb 1
\&    bless $self, "$proto";
.Ve
.IP "Attempt to delete disallowed key '%s' from a restricted hash" 4
.IX Item "Attempt to delete disallowed key '%s' from a restricted hash"
(F) The failing code attempted to delete from a restricted hash a key
which is not in its key set.
.IP "Attempt to delete readonly key '%s' from a restricted hash" 4
.IX Item "Attempt to delete readonly key '%s' from a restricted hash"
(F) The failing code attempted to delete a key whose value has been
declared readonly from a restricted hash.
.IP "Attempt to free non-arena \s-1SV:\s0 0x%lx" 4
.IX Item "Attempt to free non-arena SV: 0x%lx"
(P internal) All \s-1SV\s0 objects are supposed to be allocated from arenas
that will be garbage collected on exit.  An \s-1SV\s0 was discovered to be
outside any of those arenas.
.IP "Attempt to free nonexistent shared string" 4
.IX Item "Attempt to free nonexistent shared string"
(P internal) Perl maintains a reference counted internal table of
strings to optimize the storage and access of hash keys and other
strings.  This indicates someone tried to decrement the reference count
of a string that can no longer be found in the table.
.IP "Attempt to free temp prematurely" 4
.IX Item "Attempt to free temp prematurely"
(W debugging) Mortalized values are supposed to be freed by the
\&\fIfree_tmps()\fR routine.  This indicates that something else is freeing the
\&\s-1SV\s0 before the \fIfree_tmps()\fR routine gets a chance, which means that the
\&\fIfree_tmps()\fR routine will be freeing an unreferenced scalar when it does
try to free it.
.IP "Attempt to free unreferenced glob pointers" 4
.IX Item "Attempt to free unreferenced glob pointers"
(P internal) The reference counts got screwed up on symbol aliases.
.IP "Attempt to free unreferenced scalar" 4
.IX Item "Attempt to free unreferenced scalar"
(W internal) Perl went to decrement the reference count of a scalar to
see if it would go to 0, and discovered that it had already gone to 0
earlier, and should have been freed, and in fact, probably was freed.
This could indicate that \fISvREFCNT_dec()\fR was called too many times, or
that \fISvREFCNT_inc()\fR was called too few times, or that the \s-1SV\s0 was
mortalized when it shouldn't have been, or that memory has been
corrupted.
.IP "Attempt to join self" 4
.IX Item "Attempt to join self"
(F) You tried to join a thread from within itself, which is an
impossible task.  You may be joining the wrong thread, or you may need
to move the \fIjoin()\fR to some other thread.
.IP "Attempt to pack pointer to temporary value" 4
.IX Item "Attempt to pack pointer to temporary value"
(W pack) You tried to pass a temporary value (like the result of a
function, or a computed expression) to the \*(L"p\*(R" \fIpack()\fR template.  This
means the result contains a pointer to a location that could become
invalid anytime, even before the end of the current statement.  Use
literals or global values as arguments to the \*(L"p\*(R" \fIpack()\fR template to
avoid this warning.
.ie n .IP "Attempt to reload %s aborted." 4
.el .IP "Attempt to reload \f(CW%s\fR aborted." 4
.IX Item "Attempt to reload %s aborted."
(F) You tried to load a file with \f(CW\*(C`use\*(C'\fR or \f(CW\*(C`require\*(C'\fR that failed to
compile once already.  Perl will not try to compile this file again
unless you delete its entry from \f(CW%INC\fR.  See \*(L"require\*(R" in perlfunc and
\&\*(L"%INC\*(R" in perlvar.
.IP "Attempt to set length of freed array" 4
.IX Item "Attempt to set length of freed array"
(W) You tried to set the length of an array which has been freed.  You
can do this by storing a reference to the scalar representing the last index
of an array and later assigning through that reference. For example
.Sp
.Vb 2
\&    $r = do {my @a; \e$#a};
\&    $$r = 503
.Ve
.IP "Attempt to use reference as lvalue in substr" 4
.IX Item "Attempt to use reference as lvalue in substr"
(W substr) You supplied a reference as the first argument to \fIsubstr()\fR
used as an lvalue, which is pretty strange.  Perhaps you forgot to
dereference it first.  See \*(L"substr\*(R" in perlfunc.
.ie n .IP "Bad arg length for %s\fR, is \f(CW%d\fR, should be \f(CW%s" 4
.el .IP "Bad arg length for \f(CW%s\fR, is \f(CW%d\fR, should be \f(CW%s\fR" 4
.IX Item "Bad arg length for %s, is %d, should be %s"
(F) You passed a buffer of the wrong size to one of \fImsgctl()\fR, \fIsemctl()\fR
or \fIshmctl()\fR.  In C parlance, the correct sizes are, respectively,
sizeof(struct\ msqid_ds\ *), sizeof(struct\ semid_ds\ *), and
sizeof(struct\ shmid_ds\ *).
.IP "Bad evalled substitution pattern" 4
.IX Item "Bad evalled substitution pattern"
(F) You've used the \f(CW\*(C`/e\*(C'\fR switch to evaluate the replacement for a
substitution, but perl found a syntax error in the code to evaluate,
most likely an unexpected right brace '}'.
.ie n .IP "Bad filehandle: %s" 4
.el .IP "Bad filehandle: \f(CW%s\fR" 4
.IX Item "Bad filehandle: %s"
(F) A symbol was passed to something wanting a filehandle, but the
symbol has no filehandle associated with it.  Perhaps you didn't do an
\&\fIopen()\fR, or did it in another package.
.IP "Bad \fIfree()\fR ignored" 4
.IX Item "Bad free() ignored"
(S malloc) An internal routine called \fIfree()\fR on something that had never
been \fImalloc()\fRed in the first place. Mandatory, but can be disabled by
setting environment variable \f(CW\*(C`PERL_BADFREE\*(C'\fR to 0.
.Sp
This message can be seen quite often with DB_File on systems with \*(L"hard\*(R"
dynamic linking, like \f(CW\*(C`AIX\*(C'\fR and \f(CW\*(C`OS/2\*(C'\fR. It is a bug of \f(CW\*(C`Berkeley DB\*(C'\fR
which is left unnoticed if \f(CW\*(C`DB\*(C'\fR uses \fIforgiving\fR system \fImalloc()\fR.
.IP "Bad hash" 4
.IX Item "Bad hash"
(P) One of the internal hash routines was passed a null \s-1HV\s0 pointer.
.IP "Badly placed ()'s" 4
.IX Item "Badly placed ()'s"
(A) You've accidentally run your script through \fBcsh\fR instead
of Perl.  Check the #! line, or manually feed your script into
Perl yourself.
.ie n .IP "Bad name after %s::" 4
.el .IP "Bad name after \f(CW%s::\fR" 4
.IX Item "Bad name after %s::"
(F) You started to name a symbol by using a package prefix, and then
didn't finish the symbol.  In particular, you can't interpolate outside
of quotes, so
.Sp
.Vb 2
\&    $var = \*(Aqmyvar\*(Aq;
\&    $sym = mypack::$var;
.Ve
.Sp
is not the same as
.Sp
.Vb 2
\&    $var = \*(Aqmyvar\*(Aq;
\&    $sym = "mypack::$var";
.Ve
.IP "Bad \fIrealloc()\fR ignored" 4
.IX Item "Bad realloc() ignored"
(S malloc) An internal routine called \fIrealloc()\fR on something that had
never been \fImalloc()\fRed in the first place. Mandatory, but can be disabled
by setting environment variable \f(CW\*(C`PERL_BADFREE\*(C'\fR to 1.
.IP "Bad symbol for array" 4
.IX Item "Bad symbol for array"
(P) An internal request asked to add an array entry to something that
wasn't a symbol table entry.
.IP "Bad symbol for dirhandle" 4
.IX Item "Bad symbol for dirhandle"
(P) An internal request asked to add a dirhandle entry to something
that wasn't a symbol table entry.
.IP "Bad symbol for filehandle" 4
.IX Item "Bad symbol for filehandle"
(P) An internal request asked to add a filehandle entry to something
that wasn't a symbol table entry.
.IP "Bad symbol for hash" 4
.IX Item "Bad symbol for hash"
(P) An internal request asked to add a hash entry to something that
wasn't a symbol table entry.
.IP "Bareword found in conditional" 4
.IX Item "Bareword found in conditional"
(W bareword) The compiler found a bareword where it expected a
conditional, which often indicates that an || or && was parsed as part
of the last argument of the previous construct, for example:
.Sp