=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libstatistics-r-perl-0.24/lib/Statistics/R.pm-50- my $output_file = "file.ps"; libstatistics-r-perl-0.24/lib/Statistics/R.pm:51: $R->run(qq`postscript("$output_file" , horizontal=FALSE , width=500 , height=500 , pointsize=1)`); libstatistics-r-perl-0.24/lib/Statistics/R.pm-52- $R->run(q`plot(c(1, 5, 10), type = "l")`); ############################################## libstatistics-r-perl-0.24/lib/Statistics/R.pm-400- my ($self, $file) = @_; libstatistics-r-perl-0.24/lib/Statistics/R.pm:401: my $results = $self->run( qq`source('$file')` ); libstatistics-r-perl-0.24/lib/Statistics/R.pm-402- return $results; ############################################## libstatistics-r-perl-0.24/lib/Statistics/R.pm-442- my ($self, $varname) = @_; libstatistics-r-perl-0.24/lib/Statistics/R.pm:443: my $string = $self->run(qq`print($varname)`); libstatistics-r-perl-0.24/lib/Statistics/R.pm-444- ############################################## libstatistics-r-perl-0.24/lib/Statistics/R.pm-610- # Evaluate command (and catch syntax and runtime errors) libstatistics-r-perl-0.24/lib/Statistics/R.pm:611: $cmd = qq`tryCatch( eval(parse(text="$cmd")) , error = function(e){print(e)} ); write("$eos",stdout())\n`; libstatistics-r-perl-0.24/lib/Statistics/R.pm-612- ############################################## libstatistics-r-perl-0.24/README-23- my $output_file = "file.ps"; libstatistics-r-perl-0.24/README:24: $R->run(qq`postscript("$output_file" , horizontal=FALSE , width=500 , height=500 , pointsize=1)`); libstatistics-r-perl-0.24/README-25- $R->run(q`plot(c(1, 5, 10), type = "l")`); ############################################## libstatistics-r-perl-0.24/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libstatistics-r-perl-0.24/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libstatistics-r-perl-0.24/inc/Module/Install.pm-378-sub _read { ############################################## libstatistics-r-perl-0.24/inc/Module/Install.pm-414-# Done in evals to avoid confusing Perl::MinimumVersion libstatistics-r-perl-0.24/inc/Module/Install.pm:415:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libstatistics-r-perl-0.24/inc/Module/Install.pm-416-sub _write { ############################################## libstatistics-r-perl-0.24/inc/Module/Install/Makefile.pm-45-sub makemaker { libstatistics-r-perl-0.24/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libstatistics-r-perl-0.24/inc/Module/Install/Makefile.pm-47-} ############################################## libstatistics-r-perl-0.24/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libstatistics-r-perl-0.24/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libstatistics-r-perl-0.24/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libstatistics-r-perl-0.24/Makefile.PL-37- my ($in, $out) = @_; libstatistics-r-perl-0.24/Makefile.PL:38: `pod2text $in $out`; libstatistics-r-perl-0.24/Makefile.PL-39- warn "Warning: Could not generate $out.\n$!\n" if $? == -1; ############################################## libstatistics-r-perl-0.24/t/02-legacy.t-20- libstatistics-r-perl-0.24/t/02-legacy.t:21:ok $R->send(qq`postscript("$file" , horizontal=FALSE , width=500 , height=500 , pointsize=1)`); libstatistics-r-perl-0.24/t/02-legacy.t-22- ############################################## libstatistics-r-perl-0.24/t/03-run.t-22-$expected = ''; libstatistics-r-perl-0.24/t/03-run.t:23:is $R->run( qq`postscript("$file" , horizontal=FALSE , width=500 , height=500 , pointsize=1)`), $expected, 'Basic'; libstatistics-r-perl-0.24/t/03-run.t-24- ############################################## libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm-50- my $output_file = "file.ps"; libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm:51: $R->run(qq`postscript("$output_file" , horizontal=FALSE , width=500 , height=500 , pointsize=1)`); libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm-52- $R->run(q`plot(c(1, 5, 10), type = "l")`); ############################################## libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm-400- my ($self, $file) = @_; libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm:401: my $results = $self->run( qq`source('$file')` ); libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm-402- return $results; ############################################## libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm-442- my ($self, $varname) = @_; libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm:443: my $string = $self->run(qq`print($varname)`); libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm-444- ############################################## libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm-610- # Evaluate command (and catch syntax and runtime errors) libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm:611: $cmd = qq`tryCatch( eval(parse(text="$cmd")) , error = function(e){print(e)} ); write("$eos",stdout())\n`; libstatistics-r-perl-0.24/.pc/pod_spelling_errors/lib/Statistics/R.pm-612-