===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libdevel-ptkdb-perl-1.2320/debian/patches/call-x-www-browser-7- # Executing "start http://domain.com" it will start the default browser.
libdevel-ptkdb-perl-1.2320/debian/patches/call-x-www-browser:8: system(qq!start "ptkdb url title" "$url"!);
libdevel-ptkdb-perl-1.2320/debian/patches/call-x-www-browser-9- } else {
##############################################
libdevel-ptkdb-perl-1.2320/debian/patches/call-x-www-browser-20-- }
libdevel-ptkdb-perl-1.2320/debian/patches/call-x-www-browser:21:+ system ( 'x-www-browser', $url );
libdevel-ptkdb-perl-1.2320/debian/patches/call-x-www-browser-22- }
##############################################
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-175- # Executing "start http://domain.com" it will start the default browser.
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm:176: system(qq!start "ptkdb url title" "$url"!);
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-177- } else {
##############################################
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-3803-
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm:3804: my @result = &DB::dbeval($package, $expr->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-3805-
##############################################
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-3827- my $expr = ($x =~/^[\w:_]+/) ? "\\&$x" : $x; ## prevent call to sub , i.e. sprintf or even main::_map
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm:3828: my @result = DB::dbeval($package,$expr);
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-3829- push @{$DB::window->{'proximity_expr_list'}}, [$x,\@result];
##############################################
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4287-
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm:4288: @result = &DB::dbeval($package, $brkPt->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4289-
##############################################
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4642- $action ->[3]->[1] =sub {
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm:4643: my @r = &DB::dbeval($package,$param->{'expr'});
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4644- return ($r[0]) ? 1 : 0} ;
##############################################
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4805- } elsif ($evt eq 'balloon_eval' ) {
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm:4806: $DB::window->code_motion_eval(&DB::dbeval($package, $DB::window->{'balloon_expr'})) ;
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4807- next ;
##############################################
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4812- $DB::window->{'quick_entry'};
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm:4813: @result = &DB::dbeval($package, $DB::window->{'qexpr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4814- $quickEntrySubW->delete(0, 'end') ; # clear old text
##############################################
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4836- }
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm:4837: my @result = &DB::dbeval($package, $DB::window->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4838- if( @result == 1 ) {
##############################################
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4853- my $txt = $DB::window->{'eval_text'}->get('0.0', 'end') ;
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm:4854: my @result = &DB::dbeval($package, $txt) ;
libdevel-ptkdb-perl-1.2320/.pc/call-x-www-browser/ptkdb.pm-4855- $DB::window->{'eval_location'}->configure(-text,"Results ($package, $filename, $line, $subName) :");
##############################################
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-175- # Executing "start http://domain.com" it will start the default browser.
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:176: system(qq!start "ptkdb url title" "$url"!);
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-177- } else {
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:178: system ( 'x-www-browser', $url );
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-179- }
##############################################
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-3793-
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:3794: my @result = &DB::dbeval($package, $expr->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-3795-
##############################################
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-3817- my $expr = ($x =~/^[\w:_]+/) ? "\\&$x" : $x; ## prevent call to sub , i.e. sprintf or even main::_map
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:3818: my @result = DB::dbeval($package,$expr);
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-3819- push @{$DB::window->{'proximity_expr_list'}}, [$x,\@result];
##############################################
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4277-
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:4278: @result = &DB::dbeval($package, $brkPt->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4279-
##############################################
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4632- $action ->[3]->[1] =sub {
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:4633: my @r = &DB::dbeval($package,$param->{'expr'});
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4634- return ($r[0]) ? 1 : 0} ;
##############################################
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4795- } elsif ($evt eq 'balloon_eval' ) {
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:4796: $DB::window->code_motion_eval(&DB::dbeval($package, $DB::window->{'balloon_expr'})) ;
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4797- next ;
##############################################
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4802- $DB::window->{'quick_entry'};
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:4803: @result = &DB::dbeval($package, $DB::window->{'qexpr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4804- $quickEntrySubW->delete(0, 'end') ; # clear old text
##############################################
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4826- }
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:4827: my @result = &DB::dbeval($package, $DB::window->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4828- if( @result == 1 ) {
##############################################
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4843- my $txt = $DB::window->{'eval_text'}->get('0.0', 'end') ;
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm:4844: my @result = &DB::dbeval($package, $txt) ;
libdevel-ptkdb-perl-1.2320/.pc/spelling.patch/ptkdb.pm-4845- $DB::window->{'eval_location'}->configure(-text,"Results ($package, $filename, $line, $subName) :");
##############################################
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-175- # Executing "start http://domain.com" it will start the default browser.
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:176: system(qq!start "ptkdb url title" "$url"!);
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-177- } else {
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:178: system ( 'x-www-browser', $url );
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-179- }
##############################################
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-3793-
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:3794: my @result = &DB::dbeval($package, $expr->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-3795-
##############################################
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-3817- my $expr = ($x =~/^[\w:_]+/) ? "\\&$x" : $x; ## prevent call to sub , i.e. sprintf or even main::_map
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:3818: my @result = DB::dbeval($package,$expr);
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-3819- push @{$DB::window->{'proximity_expr_list'}}, [$x,\@result];
##############################################
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4277-
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:4278: @result = &DB::dbeval($package, $brkPt->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4279-
##############################################
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4632- $action ->[3]->[1] =sub {
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:4633: my @r = &DB::dbeval($package,$param->{'expr'});
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4634- return ($r[0]) ? 1 : 0} ;
##############################################
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4795- } elsif ($evt eq 'balloon_eval' ) {
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:4796: $DB::window->code_motion_eval(&DB::dbeval($package, $DB::window->{'balloon_expr'})) ;
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4797- next ;
##############################################
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4802- $DB::window->{'quick_entry'};
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:4803: @result = &DB::dbeval($package, $DB::window->{'qexpr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4804- $quickEntrySubW->delete(0, 'end') ; # clear old text
##############################################
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4826- }
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:4827: my @result = &DB::dbeval($package, $DB::window->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4828- if( @result == 1 ) {
##############################################
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4843- my $txt = $DB::window->{'eval_text'}->get('0.0', 'end') ;
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm:4844: my @result = &DB::dbeval($package, $txt) ;
libdevel-ptkdb-perl-1.2320/.pc/fix-pod-error/ptkdb.pm-4845- $DB::window->{'eval_location'}->configure(-text,"Results ($package, $filename, $line, $subName) :");
##############################################
libdevel-ptkdb-perl-1.2320/ptkdb.pm-175- # Executing "start http://domain.com" it will start the default browser.
libdevel-ptkdb-perl-1.2320/ptkdb.pm:176: system(qq!start "ptkdb url title" "$url"!);
libdevel-ptkdb-perl-1.2320/ptkdb.pm-177- } else {
libdevel-ptkdb-perl-1.2320/ptkdb.pm:178: system ( 'x-www-browser', $url );
libdevel-ptkdb-perl-1.2320/ptkdb.pm-179- }
##############################################
libdevel-ptkdb-perl-1.2320/ptkdb.pm-3793-
libdevel-ptkdb-perl-1.2320/ptkdb.pm:3794: my @result = &DB::dbeval($package, $expr->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/ptkdb.pm-3795-
##############################################
libdevel-ptkdb-perl-1.2320/ptkdb.pm-3817- my $expr = ($x =~/^[\w:_]+/) ? "\\&$x" : $x; ## prevent call to sub , i.e. sprintf or even main::_map
libdevel-ptkdb-perl-1.2320/ptkdb.pm:3818: my @result = DB::dbeval($package,$expr);
libdevel-ptkdb-perl-1.2320/ptkdb.pm-3819- push @{$DB::window->{'proximity_expr_list'}}, [$x,\@result];
##############################################
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4277-
libdevel-ptkdb-perl-1.2320/ptkdb.pm:4278: @result = &DB::dbeval($package, $brkPt->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4279-
##############################################
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4632- $action ->[3]->[1] =sub {
libdevel-ptkdb-perl-1.2320/ptkdb.pm:4633: my @r = &DB::dbeval($package,$param->{'expr'});
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4634- return ($r[0]) ? 1 : 0} ;
##############################################
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4795- } elsif ($evt eq 'balloon_eval' ) {
libdevel-ptkdb-perl-1.2320/ptkdb.pm:4796: $DB::window->code_motion_eval(&DB::dbeval($package, $DB::window->{'balloon_expr'})) ;
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4797- next ;
##############################################
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4802- $DB::window->{'quick_entry'};
libdevel-ptkdb-perl-1.2320/ptkdb.pm:4803: @result = &DB::dbeval($package, $DB::window->{'qexpr'}) ;
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4804- $quickEntrySubW->delete(0, 'end') ; # clear old text
##############################################
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4826- }
libdevel-ptkdb-perl-1.2320/ptkdb.pm:4827: my @result = &DB::dbeval($package, $DB::window->{'expr'}) ;
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4828- if( @result == 1 ) {
##############################################
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4843- my $txt = $DB::window->{'eval_text'}->get('0.0', 'end') ;
libdevel-ptkdb-perl-1.2320/ptkdb.pm:4844: my @result = &DB::dbeval($package, $txt) ;
libdevel-ptkdb-perl-1.2320/ptkdb.pm-4845- $DB::window->{'eval_location'}->configure(-text,"Results ($package, $filename, $line, $subName) :");