===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              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) :");