=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libclipboard-perl-0.26/at/clipjoin-test-18- Clipboard->copy($input); libclipboard-perl-0.26/at/clipjoin-test:19: system("$CJ -q") == 0 or die "$CJ failed: $!"; libclipboard-perl-0.26/at/clipjoin-test-20- my $actual = Clipboard->paste; ############################################## libclipboard-perl-0.26/lib/Clipboard/Xclip.pm-26- my $cmd = '|xclip -i -selection '. $selection; libclipboard-perl-0.26/lib/Clipboard/Xclip.pm:27: my $r = open my $exe, $cmd or die "Couldn't run `$cmd`: $!\n"; libclipboard-perl-0.26/lib/Clipboard/Xclip.pm-28- binmode $exe, ':encoding(UTF-8)'; libclipboard-perl-0.26/lib/Clipboard/Xclip.pm-29- print {$exe} $input; libclipboard-perl-0.26/lib/Clipboard/Xclip.pm:30: close $exe or die "Error closing `$cmd`: $!"; libclipboard-perl-0.26/lib/Clipboard/Xclip.pm-31- ############################################## libclipboard-perl-0.26/lib/Clipboard/Xclip.pm-45- my $cmd = "xclip -o -selection $selection|"; libclipboard-perl-0.26/lib/Clipboard/Xclip.pm:46: open my $exe, $cmd or die "Couldn't run `$cmd`: $!\n"; libclipboard-perl-0.26/lib/Clipboard/Xclip.pm-47- my $result = join '', <$exe>; libclipboard-perl-0.26/lib/Clipboard/Xclip.pm:48: close $exe or die "Error closing `$cmd`: $!"; libclipboard-perl-0.26/lib/Clipboard/Xclip.pm-49- return $result; ############################################## libclipboard-perl-0.26/scripts/clipfilter-24- my $pid = IPC::Open2::open2($child_out, $child_in, @ARGV) libclipboard-perl-0.26/scripts/clipfilter:25: or die "Couldn't open pipe to `$cmd_text`: $!"; libclipboard-perl-0.26/scripts/clipfilter-26- libclipboard-perl-0.26/scripts/clipfilter:27: print {$child_in} $data or die "Couldn't write to `$cmd_text`: $?"; libclipboard-perl-0.26/scripts/clipfilter:28: close $child_in or die "Couldn't close 'in' for `$cmd_text`: $?"; libclipboard-perl-0.26/scripts/clipfilter-29- my $ret = join '', <$child_out>; # Hrmm... error handling? libclipboard-perl-0.26/scripts/clipfilter:30: close $child_out or die "Couldn't close 'out' for `$cmd_text`: $?"; libclipboard-perl-0.26/scripts/clipfilter-31- libclipboard-perl-0.26/scripts/clipfilter-32- waitpid($pid, 0); libclipboard-perl-0.26/scripts/clipfilter:33: die "Child error for `$cmd_text`: $?" if $? >> 8; libclipboard-perl-0.26/scripts/clipfilter-34- return $ret; ############################################## libclipboard-perl-0.26/scripts/clipbrowse-10-$query =~ s/['"]/\\$&/; libclipboard-perl-0.26/scripts/clipbrowse:11:system(sprintf $browser, $query); libclipboard-perl-0.26/scripts/clipbrowse-12- ############################################## libclipboard-perl-0.26/scripts/clipedit-16-my $ed = $ENV{VISUAL} || $ENV{EDITOR} || 'sensible-editor'; libclipboard-perl-0.26/scripts/clipedit:17:system($ed, $tmpfilename); libclipboard-perl-0.26/scripts/clipedit-18- ############################################## libclipboard-perl-0.26/debian/patches/sensible.patch-25-+my $ed = $ENV{VISUAL} || $ENV{EDITOR} || 'sensible-editor'; libclipboard-perl-0.26/debian/patches/sensible.patch:26: system($ed, $tmpfilename); libclipboard-perl-0.26/debian/patches/sensible.patch-27- ############################################## libclipboard-perl-0.26/.pc/sensible.patch/scripts/clipbrowse-10-$query =~ s/['"]/\\$&/; libclipboard-perl-0.26/.pc/sensible.patch/scripts/clipbrowse:11:system(sprintf $browser, $query); libclipboard-perl-0.26/.pc/sensible.patch/scripts/clipbrowse-12- ############################################## libclipboard-perl-0.26/.pc/sensible.patch/scripts/clipedit-16-my $ed = $ENV{VISUAL} || $ENV{EDITOR} || 'vim'; libclipboard-perl-0.26/.pc/sensible.patch/scripts/clipedit:17:system($ed, $tmpfilename); libclipboard-perl-0.26/.pc/sensible.patch/scripts/clipedit-18-