===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libxml-twig-perl-3.52/t/test_xml_split.t-92-  { my( $command, $options, $expected)= @_;
libxml-twig-perl-3.52/t/test_xml_split.t:93:    my( $stdout, $stderr, $success, $exit_code) = IO::CaptureOutput::capture_exec( "$perl $command $options test_xml_split.xml");
libxml-twig-perl-3.52/t/test_xml_split.t-94-    matches( $stderr, qr/$expected/, "$command $options");
##############################################
libxml-twig-perl-3.52/t/test_xml_split.t-98-  { my( $command, $options, $expected)= @_;
libxml-twig-perl-3.52/t/test_xml_split.t:99:    my( $stdout, $stderr, $success, $exit_code) = IO::CaptureOutput::capture_exec( "$perl $command $options test_xml_split.xml");
libxml-twig-perl-3.52/t/test_xml_split.t-100-    matches( $stdout, qr/^$expected/, "$command $options");
##############################################
libxml-twig-perl-3.52/t/test_xml_split.t-131-          { warn "  $expected and $real are different";
libxml-twig-perl-3.52/t/test_xml_split.t:132:            if( $DEBUG) { warn `diff $expected, $real`; }
libxml-twig-perl-3.52/t/test_xml_split.t-133-            return 0;
##############################################
libxml-twig-perl-3.52/t/test_errors.t-32-if ($^O eq 'VMS') {
libxml-twig-perl-3.52/t/test_errors.t:33:    system( qq{$perl $q-Mblib$q -e$q use vmsish qw(hushed);use XML::Parser; BEGIN { \$XML::Parser::VERSION=$version}; use XML::Twig $q 2> $error_file});
libxml-twig-perl-3.52/t/test_errors.t-34-} else {
libxml-twig-perl-3.52/t/test_errors.t:35:    system( qq{$perl $q-Iblib/lib$q -e$q use XML::Parser; BEGIN { \$XML::Parser::VERSION=$version}; use XML::Twig $q 2> $error_file});
libxml-twig-perl-3.52/t/test_errors.t-36-}
##############################################
libxml-twig-perl-3.52/t/test_errors.t-42-unlink $error_file if -f $error_file;
libxml-twig-perl-3.52/t/test_errors.t:43:system( qq{$perl $q-Mblib$q -e$q use XML::Parser; BEGIN { \$XML::Parser::VERSION=$version}; use XML::Twig $q 2> $error_file});
libxml-twig-perl-3.52/t/test_errors.t-44-ok( ! -f $error_file || slurp_error( $error_file)!~ "need at least XML::Parser version",
##############################################
libxml-twig-perl-3.52/t/test_errors.t-49-unlink $error_file if -f $error_file;
libxml-twig-perl-3.52/t/test_errors.t:50:system( qq{$^X -e$q use XML::Parser; BEGIN { \$XML::Parser::VERSION=$version}; use XML::Twig$q 2> $error_file});
libxml-twig-perl-3.52/t/test_errors.t-51-ok( ! -f $error_file || slurp_error( $error_file)!~ "need at least XML::Parser version", 
##############################################
libxml-twig-perl-3.52/t/test_bugs_3_15.t-32-  my $t= XML::Twig->new->parse( '<doc/>');
libxml-twig-perl-3.52/t/test_bugs_3_15.t:33:  if( eval( '$t->iconv_convert( "utf8");'))
libxml-twig-perl-3.52/t/test_bugs_3_15.t-34-    { $t->set_output_encoding( 'utf8');
##############################################
libxml-twig-perl-3.52/t/test_autoencoding_conversion.t-30-    my $run_it=qq{$^X -I $lib -MXML::Twig -e$q print XML::Twig->parse( $q2$file_latin1$q2)->root->text$q};
libxml-twig-perl-3.52/t/test_autoencoding_conversion.t:31:    my $parsed= `$run_it`;
libxml-twig-perl-3.52/t/test_autoencoding_conversion.t-32-    is( $parsed, $char_utf8, 'testing auto transcoding of latin1 output');
##############################################
libxml-twig-perl-3.52/t/test_mark.t-27-    (my $quoted_elts= $elts)=~ s{(\w+)}{'$1'}g;
libxml-twig-perl-3.52/t/test_mark.t:28:    my @elts= eval( "($quoted_elts)"); 
libxml-twig-perl-3.52/t/test_mark.t-29-    my $t= XML::Twig->new->parse( $doc);
##############################################
libxml-twig-perl-3.52/t/xmlxpath_test1.t-387-is( $elt->node_cmp( $elt),    0, "compare elt with itself");
libxml-twig-perl-3.52/t/xmlxpath_test1.t:388:eval( '$att1->node_cmp( 1)');
libxml-twig-perl-3.52/t/xmlxpath_test1.t-389-matches( $@, "^unknown node type ", "compare att with scalar");
##############################################
libxml-twig-perl-3.52/t/zz_dump_config.t-25-if ($^O eq 'VMS') {
libxml-twig-perl-3.52/t/zz_dump_config.t:26:    if(`write sys\$output "''xmlwf'"` !~ m/[a-z]+/i) {
libxml-twig-perl-3.52/t/zz_dump_config.t-27-        $skip_xmlwf_test = 1;
##############################################
libxml-twig-perl-3.52/t/test_additional.t-24-    else 
libxml-twig-perl-3.52/t/test_additional.t:25:      { $open= eval( 'sub { open( $_[0], $_[1], $_[2]) }'); }
libxml-twig-perl-3.52/t/test_additional.t-26-  }
##############################################
libxml-twig-perl-3.52/t/test_additional.t-1201-        { my $encoding= 'ISO-8859-1';
libxml-twig-perl-3.52/t/test_additional.t:1202:          if( eval( '$t->iconv_convert( "$encoding");'))
libxml-twig-perl-3.52/t/test_additional.t-1203-            { $t->set_output_filter( $t->iconv_convert( $encoding) );
##############################################
libxml-twig-perl-3.52/t/test_need_io_scalar.t-394-{ my $t= XML::Twig->new->parse( '<doc/>');
libxml-twig-perl-3.52/t/test_need_io_scalar.t:395:  eval( '$t->set_output_encoding( "ISO-8859-1");');
libxml-twig-perl-3.52/t/test_need_io_scalar.t-396-  if( $@) 
##############################################
libxml-twig-perl-3.52/tools/xml_split/xml_split-193-        unless( $state->{no_pi})
libxml-twig-perl-3.52/tools/xml_split/xml_split:194:          { print {$state->{main_fh}} $state->include( $file_name) ; }
libxml-twig-perl-3.52/tools/xml_split/xml_split-195-      }
##############################################
libxml-twig-perl-3.52/tools/xml_split/xml_split-235-        unless( $state->{no_pi})
libxml-twig-perl-3.52/tools/xml_split/xml_split:236:          { print {$state->{main_fh}} $state->include( $file_name) ; }
libxml-twig-perl-3.52/tools/xml_split/xml_split-237-        $state->{store_size}=1;
##############################################
libxml-twig-perl-3.52/tools/xml_split/xml_split-300-            unless( $state->{no_pi})
libxml-twig-perl-3.52/tools/xml_split/xml_split:301:              { print {$state->{main_fh}} $state->include( $file_name) ; }
libxml-twig-perl-3.52/tools/xml_split/xml_split-302-          }
##############################################
libxml-twig-perl-3.52/tools/xml_split/xml_split-388-        # otherwise print it to the main document
libxml-twig-perl-3.52/tools/xml_split/xml_split:389:        my $include= $state->include( $file_name);
libxml-twig-perl-3.52/tools/xml_split/xml_split-390-
##############################################
libxml-twig-perl-3.52/tools/xml_spellcheck/xml_spellcheck-80-
libxml-twig-perl-3.52/tools/xml_spellcheck/xml_spellcheck:81:    system( "$spellchecker $tmp_file") ==0
libxml-twig-perl-3.52/tools/xml_spellcheck/xml_spellcheck-82-      or die "$spellchecker $tmp_file failed: $?";
##############################################
libxml-twig-perl-3.52/.pc/03_cosmetics.diff/Twig_pm.slow-3978-  { my $perl= _this_perl();
libxml-twig-perl-3.52/.pc/03_cosmetics.diff/Twig_pm.slow:3979:    return $perl ? grep /useperlio=define/, `$perl -V` : 1;
libxml-twig-perl-3.52/.pc/03_cosmetics.diff/Twig_pm.slow-3980-  }
##############################################
libxml-twig-perl-3.52/.pc/03_cosmetics.diff/Twig.pm-3978-  { my $perl= _this_perl();
libxml-twig-perl-3.52/.pc/03_cosmetics.diff/Twig.pm:3979:    return $perl ? grep /useperlio=define/, `$perl -V` : 1;
libxml-twig-perl-3.52/.pc/03_cosmetics.diff/Twig.pm-3980-  }
##############################################
libxml-twig-perl-3.52/.pc/06_spelling.diff/Twig.pm-3978-  { my $perl= _this_perl();
libxml-twig-perl-3.52/.pc/06_spelling.diff/Twig.pm:3979:    return $perl ? grep /useperlio=define/, `$perl -V` : 1;
libxml-twig-perl-3.52/.pc/06_spelling.diff/Twig.pm-3980-  }
##############################################
libxml-twig-perl-3.52/.pc/06_spelling.diff/Twig_pm.slow-3978-  { my $perl= _this_perl();
libxml-twig-perl-3.52/.pc/06_spelling.diff/Twig_pm.slow:3979:    return $perl ? grep /useperlio=define/, `$perl -V` : 1;
libxml-twig-perl-3.52/.pc/06_spelling.diff/Twig_pm.slow-3980-  }
##############################################
libxml-twig-perl-3.52/.pc/06_spelling.diff/tools/xml_spellcheck/xml_spellcheck-80-
libxml-twig-perl-3.52/.pc/06_spelling.diff/tools/xml_spellcheck/xml_spellcheck:81:    system( "$spellchecker $tmp_file") ==0
libxml-twig-perl-3.52/.pc/06_spelling.diff/tools/xml_spellcheck/xml_spellcheck-82-      or die "$spellchecker $tmp_file failed: $?";
##############################################
libxml-twig-perl-3.52/.pc/CVE-2016-9180.patch/Twig_pm.slow-3978-  { my $perl= _this_perl();
libxml-twig-perl-3.52/.pc/CVE-2016-9180.patch/Twig_pm.slow:3979:    return $perl ? grep /useperlio=define/, `$perl -V` : 1;
libxml-twig-perl-3.52/.pc/CVE-2016-9180.patch/Twig_pm.slow-3980-  }
##############################################
libxml-twig-perl-3.52/Twig.pm-3978-  { my $perl= _this_perl();
libxml-twig-perl-3.52/Twig.pm:3979:    return $perl ? grep /useperlio=define/, `$perl -V` : 1;
libxml-twig-perl-3.52/Twig.pm-3980-  }
##############################################
libxml-twig-perl-3.52/Twig_pm.slow-3978-  { my $perl= _this_perl();
libxml-twig-perl-3.52/Twig_pm.slow:3979:    return $perl ? grep /useperlio=define/, `$perl -V` : 1;
libxml-twig-perl-3.52/Twig_pm.slow-3980-  }