=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libpod-simple-perl-3.42/t/JustPod02.t-37- my $diff = File::Temp->new(); libpod-simple-perl-3.42/t/JustPod02.t:38: system("$ENV{PERL_TEST_DIFF} $orig_file $parsed_file > $diff"); libpod-simple-perl-3.42/t/JustPod02.t-39- ############################################## libpod-simple-perl-3.42/t/perlvaro.txt-166-$? libpod-simple-perl-3.42/t/perlvaro.txt:167:The status returned by the last pipe close, backtick (``) command, successful call to wait() or waitpid(), or from the system() operator. This is just the 16-bit status word returned by the wait() system call (or else is made up to look like it). Thus, the exit value of the subprocess is really ($? >> 8), and $? & 127 gives which signal, if any, the process died from, and $? & 128 reports whether there was a core dump. (Mnemonic: similar to sh and ksh.) libpod-simple-perl-3.42/t/perlvaro.txt-168-Additionally, if the h_errno variable is supported in C, its value is returned via $? if any gethost*() function fails. ############################################## libpod-simple-perl-3.42/t/perlvaro.txt-241-$^F libpod-simple-perl-3.42/t/perlvaro.txt:242:The maximum system file descriptor, ordinarily 2. System file descriptors are passed to exec()ed processes, while higher file descriptors are not. Also, during an open(), system file descriptors are preserved even if the open() fails. (Ordinary file descriptors are closed before the open() is attempted.) The close-on-exec status of a file descriptor will be decided according to the value of $^F when the corresponding file, pipe, or socket was opened, not the time of the exec(). libpod-simple-perl-3.42/t/perlvaro.txt-243-$^H ############################################## libpod-simple-perl-3.42/t/perlvaro.txt-370-The routine indicated by $SIG{__DIE__} is called when a fatal exception is about to be thrown. The error message is passed as the first argument. When a __DIE__ hook routine returns, the exception processing continues as it would have in the absence of the hook, unless the hook routine itself exits via a goto, a loop exit, or a die(). The __DIE__ handler is explicitly disabled during the call, so that you can die from a __DIE__ handler. Similarly for __WARN__. libpod-simple-perl-3.42/t/perlvaro.txt:371:Due to an implementation glitch, the $SIG{__DIE__} hook is called even inside an eval(). Do not use this to rewrite a pending exception in $@, or as a bizarre substitute for overriding CORE::GLOBAL::die(). This strange action at a distance may be fixed in a future release so that $SIG{__DIE__} is only called if your program is about to exit, as was the original intent. Any other use is deprecated. libpod-simple-perl-3.42/t/perlvaro.txt-372-__DIE__/__WARN__ handlers are very special in one respect: they may be called to report (probable) errors found by the parser. In such a case the parser may be in inconsistent state, so any attempt to evaluate Perl code from such a handler will probably result in a segfault. This means that warnings or errors that result from parsing Perl should be used with extreme caution, like this: ############################################## libpod-simple-perl-3.42/t/JustPod_corpus.t-167- my $diff = File::Temp->new(); libpod-simple-perl-3.42/t/JustPod_corpus.t:168: system("$ENV{PERL_TEST_DIFF} $orig_file $parsed_file > $diff"); libpod-simple-perl-3.42/t/JustPod_corpus.t-169- ############################################## libpod-simple-perl-3.42/t/rtf_utf8.t-54- my $diff = File::Temp->new(); libpod-simple-perl-3.42/t/rtf_utf8.t:55: system("$ENV{PERL_TEST_DIFF} $orig_file $parsed_file > $diff"); libpod-simple-perl-3.42/t/rtf_utf8.t-56- ############################################## libpod-simple-perl-3.42/t/JustPod01.t-48- my $diff = File::Temp->new(); libpod-simple-perl-3.42/t/JustPod01.t:49: system("$ENV{PERL_TEST_DIFF} $orig_file $parsed_file > $diff"); libpod-simple-perl-3.42/t/JustPod01.t-50- ############################################## libpod-simple-perl-3.42/t/corpus.t-175- print STDERR "# $outfilename and $xml don't match!\n"; libpod-simple-perl-3.42/t/corpus.t:176: print STDERR `diff $xml $outfilename`; libpod-simple-perl-3.42/t/corpus.t-177- ok 0; ############################################## libpod-simple-perl-3.42/t/perlcygo.txt-104-ld2 libpod-simple-perl-3.42/t/perlcygo.txt:105:During `make', ld2 will be created and installed in your $installbin directory (where you said to put public executables). It does not wait until the `make install' process to install the ld2 script, this is because the remainder of the `make' refers to ld2 without fully specifying its path and does this from multiple subdirectories. The assumption is that $installbin is in your current PATH. If this is not the case `make' will fail at some point. If this happens, just manually copy ld2 from the source directory to somewhere in your PATH. libpod-simple-perl-3.42/t/perlcygo.txt-106-TEST