=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libfile-mimeinfo-perl-0.30/Changes-36- The current version of the mime-apps spec locates the per-user defaults libfile-mimeinfo-perl-0.30/Changes:37: file in `$XDG_CONFIG_HOME/mimeapps.list`. Use that location, and fall libfile-mimeinfo-perl-0.30/Changes-38- back to the per-system and distribution defaults as specified, with the ############################################## libfile-mimeinfo-perl-0.30/mimeopen-180- my $last = pop @ARGV; libfile-mimeinfo-perl-0.30/mimeopen:181: fork or $default->exec($_) for @ARGV; libfile-mimeinfo-perl-0.30/mimeopen:182: $default->exec($last); libfile-mimeinfo-perl-0.30/mimeopen-183-} ############################################## libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-45- ($act eq 'exec') libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm:46: ? exec($script, $file, @_) libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm:47: : (system($script, $file, @_) == 0) libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-48- or croak "couldn't $act: $script $file"; ############################################## libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-97- # open some file with the appropriate program libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm:98: mime_system($somefile); libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-99- ############################################## libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-102- || die "Could not find mimetype for $somefile\n"; libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm:103: mime_system($somefile, $mt) libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-104- || die "No program to open $somefile available\n"; ############################################## libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-132- libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm:133:=item C<mime_system($file)> libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-134- libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm:135:=item C<mime_system($file, $mimetype, @_)> libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-136- ############################################## libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-147- libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm:148:=item C<mime_exec($file)> libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-149- libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm:150:=item C<mime_exec($file, $mimetype, @_)> libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Rox.pm-151- ############################################## libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Applications.pm-223- if (defined $default) { libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Applications.pm:224: $default->system($file) libfile-mimeinfo-perl-0.30/lib/File/MimeInfo/Applications.pm-225- } ############################################## libfile-mimeinfo-perl-0.30/t/11mimeinfo.t-27- my $result = $tests{$test}; libfile-mimeinfo-perl-0.30/t/11mimeinfo.t:28: is(`$^X $mimetype_file --noalign $test`, "$test: $result\n", $test); libfile-mimeinfo-perl-0.30/t/11mimeinfo.t-29- is($?, 0); ############################################## libfile-mimeinfo-perl-0.30/t/11mimeinfo.t-31- skip "Skip stdin test because no IO::Scalar", 1 if !$have_io_scalar; libfile-mimeinfo-perl-0.30/t/11mimeinfo.t:32: is(`$^X $mimetype_file --noalign --stdin < $test`, "STDIN: $result\n", libfile-mimeinfo-perl-0.30/t/11mimeinfo.t-33- "$test (stdin)"); ############################################## libfile-mimeinfo-perl-0.30/t/11mimeinfo.t-35- # with empty mimetype dirs, should exit non-zero libfile-mimeinfo-perl-0.30/t/11mimeinfo.t:36: `$^X $mimetype_file --database "$empty_dir" --noalign $test`; libfile-mimeinfo-perl-0.30/t/11mimeinfo.t-37- cmp_ok($?, '>', 0); ############################################## libfile-mimeinfo-perl-0.30/.pc/autopkgtest.patch/t/11mimeinfo.t-27- my $result = $tests{$test}; libfile-mimeinfo-perl-0.30/.pc/autopkgtest.patch/t/11mimeinfo.t:28: is(`$^X $mimetype_file --noalign $test`, "$test: $result\n", $test); libfile-mimeinfo-perl-0.30/.pc/autopkgtest.patch/t/11mimeinfo.t-29- is($?, 0); ############################################## libfile-mimeinfo-perl-0.30/.pc/autopkgtest.patch/t/11mimeinfo.t-31- skip "Skip stdin test because no IO::Scalar", 1 if !$have_io_scalar; libfile-mimeinfo-perl-0.30/.pc/autopkgtest.patch/t/11mimeinfo.t:32: is(`$^X $mimetype_file --noalign --stdin < $test`, "STDIN: $result\n", libfile-mimeinfo-perl-0.30/.pc/autopkgtest.patch/t/11mimeinfo.t-33- "$test (stdin)"); ############################################## libfile-mimeinfo-perl-0.30/.pc/autopkgtest.patch/t/11mimeinfo.t-35- # with empty mimetype dirs, should exit non-zero libfile-mimeinfo-perl-0.30/.pc/autopkgtest.patch/t/11mimeinfo.t:36: `$^X $mimetype_file --database "$empty_dir" --noalign $test`; libfile-mimeinfo-perl-0.30/.pc/autopkgtest.patch/t/11mimeinfo.t-37- cmp_ok($?, '>', 0);