=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph.pm-1764- if ($ENV{TERM} && $ENV{TERM}=~/^(xterm|vt10)/) { libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph.pm:1765: my ($pager) = grep {`which $_`} ($ENV{PAGER},'less','more'); libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph.pm-1766- $extra = "|$pager"; ############################################## libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph/fb_shmiggle.pm-56- ($r,$g,$b)= ($1,$2,$3); libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph/fb_shmiggle.pm:57: eval('$r=hex("0x'.$r.'");'); libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph/fb_shmiggle.pm:58: eval('$g=hex("0x'.$g.'");'); libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph/fb_shmiggle.pm:59: eval('$b=hex("0x'.$b.'");'); libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph/fb_shmiggle.pm-60- } ############################################## libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph/trace.pm-171- unless ( -e $new_file_name ){ libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph/trace.pm:172: `gunzip -c $file_name > $new_file_name`; libbio-graphics-perl-2.40/lib/Bio/Graphics/Glyph/trace.pm-173- } ############################################## libbio-graphics-perl-2.40/lib/Bio/Graphics/FeatureFile.pm-1241- libbio-graphics-perl-2.40/lib/Bio/Graphics/FeatureFile.pm:1242: my $success = $context->eval("$setting; 1"); libbio-graphics-perl-2.40/lib/Bio/Graphics/FeatureFile.pm-1243- $self->_callback_complain($section,$option) if $@; ############################################## libbio-graphics-perl-2.40/scripts/bam_coverage_windows.pl-36- libbio-graphics-perl-2.40/scripts/bam_coverage_windows.pl:37:chomp(my $name = `basename $bam .bam`); libbio-graphics-perl-2.40/scripts/bam_coverage_windows.pl-38-print qq(track type=wiggle_0 name="$name" description="read coverage for $bam (window size $win)"\n); ############################################## libbio-graphics-perl-2.40/scripts/bam_coverage_windows.pl-96- print STDERR "Calculating total number of reads in $bam\n"; libbio-graphics-perl-2.40/scripts/bam_coverage_windows.pl:97: chomp(my $total = `samtools view -c $bam`); libbio-graphics-perl-2.40/scripts/bam_coverage_windows.pl-98- print STDERR "$bam has $total reads\n"; ############################################## libbio-graphics-perl-2.40/scripts/coverage_to_topoview.pl-113- libbio-graphics-perl-2.40/scripts/coverage_to_topoview.pl:114: chomp(my $SubsetName = `basename $file .wig.gz`); libbio-graphics-perl-2.40/scripts/coverage_to_topoview.pl-115- ############################################## libbio-graphics-perl-2.40/scripts/glyph_help.pl-191- for my $viewer (qw(xv display)) { # can read from stdin libbio-graphics-perl-2.40/scripts/glyph_help.pl:192: $ENV{SHELL} && `which $viewer` or next; libbio-graphics-perl-2.40/scripts/glyph_help.pl-193- my $child = open my $fh,"|-"; ############################################## libbio-graphics-perl-2.40/scripts/index_cov_files.pl-47- my $datfilename= 'data.cat'; libbio-graphics-perl-2.40/scripts/index_cov_files.pl:48: system("rm $datfilename") if -e $datfilename; libbio-graphics-perl-2.40/scripts/index_cov_files.pl-49- open(OUTDATF,'>'.$datfilename) || die "Cannot open $datfilename!"; ############################################## libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/FeatureFile.pm-1241- libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/FeatureFile.pm:1242: my $success = $context->eval("$setting; 1"); libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/FeatureFile.pm-1243- $self->_callback_complain($section,$option) if $@; ############################################## libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/Glyph/fb_shmiggle.pm-56- ($r,$g,$b)= ($1,$2,$3); libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/Glyph/fb_shmiggle.pm:57: eval('$r=hex("0x'.$r.'");'); libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/Glyph/fb_shmiggle.pm:58: eval('$g=hex("0x'.$g.'");'); libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/Glyph/fb_shmiggle.pm:59: eval('$b=hex("0x'.$b.'");'); libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/Glyph/fb_shmiggle.pm-60- } ############################################## libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/Glyph/trace.pm-171- unless ( -e $new_file_name ){ libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/Glyph/trace.pm:172: `gunzip -c $file_name > $new_file_name`; libbio-graphics-perl-2.40/.pc/spelling/lib/Bio/Graphics/Glyph/trace.pm-173- }