===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libmp3-tag-perl-1.13/examples/eat_wav_mp3_header.pl-138- die "File `$f': no valid RIFF header" unless $opt{F};
libmp3-tag-perl-1.13/examples/eat_wav_mp3_header.pl:139: rename $f, $o or die "rename `$f' => `$o': $!";
libmp3-tag-perl-1.13/examples/eat_wav_mp3_header.pl-140- return;
##############################################
libmp3-tag-perl-1.13/examples/tagged.pl-56- close FH;
libmp3-tag-perl-1.13/examples/tagged.pl:57: system("xview /tmp/temp.$v2 &"); #choose this to another program if you want
libmp3-tag-perl-1.13/examples/tagged.pl-58- }
##############################################
libmp3-tag-perl-1.13/examples/typeset_audio_dir-134- (my $in = shift) =~ s/([&_\$#%~])/\\$1/g;
libmp3-tag-perl-1.13/examples/typeset_audio_dir:135: $in =~ s/(\b|(?<=\.\.\.)|(?<=[\x80-\xFF]))`\B|`$/'/g; # Quote: word-like`
libmp3-tag-perl-1.13/examples/typeset_audio_dir-136- $in =~ s/\B'(\b|(?=[\x80-\xFF]))|^'/`/g; # Quote: `word-like
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm-673- unless (( rename $tempfile, $mp3obj->{filename})||
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm:674: (system("mv",$tempfile,$mp3obj->{filename})==0)) {
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm-675- unlink($tempfile);
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm-916- unless (( rename $tempfile, $mp3obj->{filename})||
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm:917: (system("mv",$tempfile,$mp3obj->{filename})==0)) {
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm-918- warn "Couldn't rename temporary file $tempfile\n";
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm-1359-
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm:1360: die "Unsupported value `$v' for field `$nfield' of frame `$fname'";
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm-1361-}
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm-1607- $_ eq '' or exists $m1->{$_} or $loose or not /\D/
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm:1608: or die "Unknown value `$_' for field `$lang_field' of frame $fname"
libmp3-tag-perl-1.13/lib/MP3/Tag/ID3v2.pm-1609- for @$languages_mangled;
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2315- ($upto eq ']' ? $_[1] =~ s/^\]// : $_[1] =~ s/^\}//)
libmp3-tag-perl-1.13/lib/MP3/Tag.pm:2316: or die "Can't find final delimiter `$upto': I see `$_[1]'";
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2317- } else {
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2518- eval {my ($a, $b); $self->_parse_rex_microinterpolate("=$code", $a, $b)}
libmp3-tag-perl-1.13/lib/MP3/Tag.pm:2519: and die "escape `%$code' can't be parsed; did you forget to put `='?";
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2520- die "unknown escape `%$code'";
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2553- my $cv = @vals - 1;
libmp3-tag-perl-1.13/lib/MP3/Tag.pm:2554: die "Unsupported %-regular expression `$pattern->[0]' (catching parens? Got $cv vals) (converted to `$pattern->[1]')"
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2555- unless $cv == @{$pattern->[2]};
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2667-
libmp3-tag-perl-1.13/lib/MP3/Tag.pm:2668:sub from_filesystem ($$) {
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2669- my ($self, $f) = @_;
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2677- my $self = shift;
libmp3-tag-perl-1.13/lib/MP3/Tag.pm:2678: $self->from_filesystem($self->{ofilename});
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2679-}
##############################################
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2682- my $self = shift;
libmp3-tag-perl-1.13/lib/MP3/Tag.pm:2683: $self->from_filesystem($self->{abs_filename});
libmp3-tag-perl-1.13/lib/MP3/Tag.pm-2684-}
##############################################
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-925- my ($opus_rx, $opus_pre) = opus_parser($tag);
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm:926: die "No subopus number in `$op_no' (from `$in')"
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-927- unless $op_no =~ /^($opus_rx)\s*[.,:;]\s*No/;
##############################################
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-931- } elsif (not $update) {
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm:932: die "Opus `$op_no' already known: `$name'";
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-933- }
##############################################
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-963- (my $n) = ($parsed =~ /^Title-Name:\s*(.*)/m);
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm:964: warn "Title-RAW `$n' interpreted as Title-Name in `$in'\n";
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-965- }
##############################################
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-985- my $ll = normalize_person($self, $s);
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm:986: warn "`$l' => `$s' => `$ll'" unless $ll eq $l;
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-987- }
##############################################
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-992- my $ss = short_person($self, $l);
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm:993: warn "`$s' => `$l' => `$ss'" unless $ss eq $s;
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-994- }
##############################################
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-1026- $tr{translate_dots $old} = $tr{translate_dots $ok} || $ok;
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm:1027: #print "translating `",translate_dots $old,"' to `",translate_dots $ok,"'\n";
libmp3-tag-perl-1.13/lib/Normalize/Text/Music_Fields.pm-1028- } elsif ($1 eq 'shortname_for') {
##############################################
libmp3-tag-perl-1.13/t/mp3tag.t-180-#warn "$i\n$ii\n";
libmp3-tag-perl-1.13/t/mp3tag.t:181:ok($inf && $i eq $ii, "Checking interpolation: `$i' eq `$ii'");
libmp3-tag-perl-1.13/t/mp3tag.t-182-
##############################################
libmp3-tag-perl-1.13/tk-tag/tk-tag.pl-845- if (rename($var{dir}.$var{oldfilename}, $var{dir}.$var{filename}) ||
libmp3-tag-perl-1.13/tk-tag/tk-tag.pl:846: (system("mv", $var{dir}.$var{oldfilename}, $var{dir}.$var{filename})==0)) {
libmp3-tag-perl-1.13/tk-tag/tk-tag.pl-847- $var{files}->{$var{filename}}=$var{files}->{$var{oldfilename}};
##############################################
libmp3-tag-perl-1.13/debian/rules-18- chmod 644 $(TMP)/usr/share/perl5/MP3/Tag/ID3v2_Data.pod
libmp3-tag-perl-1.13/debian/rules:19: for i in `find $(TMP)/usr/share/doc/libmp3-tag-perl/examples -type f` ; \
libmp3-tag-perl-1.13/debian/rules-20- do \
##############################################
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2315- ($upto eq ']' ? $_[1] =~ s/^\]// : $_[1] =~ s/^\}//)
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm:2316: or die "Can't find final delimiter `$upto': I see `$_[1]'";
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2317- } else {
##############################################
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2518- eval {my ($a, $b); $self->_parse_rex_microinterpolate("=$code", $a, $b)}
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm:2519: and die "escape `%$code' can't be parsed; did you forget to put `='?";
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2520- die "unknown escape `%$code'";
##############################################
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2553- my $cv = @vals - 1;
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm:2554: die "Unsupported %-regular expression `$pattern->[0]' (catching parens? Got $cv vals) (converted to `$pattern->[1]')"
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2555- unless $cv == @{$pattern->[2]};
##############################################
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2667-
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm:2668:sub from_filesystem ($$) {
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2669- my ($self, $f) = @_;
##############################################
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2677- my $self = shift;
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm:2678: $self->from_filesystem($self->{ofilename});
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2679-}
##############################################
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2682- my $self = shift;
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm:2683: $self->from_filesystem($self->{abs_filename});
libmp3-tag-perl-1.13/.pc/01_spelling.patch/lib/MP3/Tag.pm-2684-}
##############################################
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2315- ($upto eq ']' ? $_[1] =~ s/^\]// : $_[1] =~ s/^\}//)
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm:2316: or die "Can't find final delimiter `$upto': I see `$_[1]'";
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2317- } else {
##############################################
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2518- eval {my ($a, $b); $self->_parse_rex_microinterpolate("=$code", $a, $b)}
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm:2519: and die "escape `%$code' can't be parsed; did you forget to put `='?";
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2520- die "unknown escape `%$code'";
##############################################
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2553- my $cv = @vals - 1;
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm:2554: die "Unsupported %-regular expression `$pattern->[0]' (catching parens? Got $cv vals) (converted to `$pattern->[1]')"
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2555- unless $cv == @{$pattern->[2]};
##############################################
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2667-
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm:2668:sub from_filesystem ($$) {
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2669- my ($self, $f) = @_;
##############################################
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2677- my $self = shift;
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm:2678: $self->from_filesystem($self->{ofilename});
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2679-}
##############################################
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2682- my $self = shift;
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm:2683: $self->from_filesystem($self->{abs_filename});
libmp3-tag-perl-1.13/.pc/02_fix_escape.patch/lib/MP3/Tag.pm-2684-}
##############################################
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2315- ($upto eq ']' ? $_[1] =~ s/^\]// : $_[1] =~ s/^\}//)
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm:2316: or die "Can't find final delimiter `$upto': I see `$_[1]'";
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2317- } else {
##############################################
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2518- eval {my ($a, $b); $self->_parse_rex_microinterpolate("=$code", $a, $b)}
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm:2519: and die "escape `%$code' can't be parsed; did you forget to put `='?";
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2520- die "unknown escape `%$code'";
##############################################
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2553- my $cv = @vals - 1;
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm:2554: die "Unsupported %-regular expression `$pattern->[0]' (catching parens? Got $cv vals) (converted to `$pattern->[1]')"
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2555- unless $cv == @{$pattern->[2]};
##############################################
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2667-
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm:2668:sub from_filesystem ($$) {
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2669- my ($self, $f) = @_;
##############################################
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2677- my $self = shift;
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm:2678: $self->from_filesystem($self->{ofilename});
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2679-}
##############################################
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2682- my $self = shift;
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm:2683: $self->from_filesystem($self->{abs_filename});
libmp3-tag-perl-1.13/.pc/03_fix_more_escapes.patch/lib/MP3/Tag.pm-2684-}