summaryrefslogtreecommitdiff
path: root/build_db.plx
diff options
context:
space:
mode:
Diffstat (limited to 'build_db.plx')
-rwxr-xr-xbuild_db.plx23
1 files changed, 19 insertions, 4 deletions
diff --git a/build_db.plx b/build_db.plx
index 99bc182..e8820bf 100755
--- a/build_db.plx
+++ b/build_db.plx
@@ -52,15 +52,30 @@ sub build_extension_hash {
# Look for control characters in a string to attempt to detect binary data
# @_[0] -> string argument
-# Returns 1 if @_[0] is in control range (0-19); 0 otherwise
+# Returns 1 if @_[0] is in control range (see below); 0 otherwise
sub detect_binary {
my $unicode_val;
- utf8::encode($_[0]);
+ # If the argument is an array, break it up and run detect_binary on each arg
+ if (ref($_[0]) eq 'ARRAY'){
+ for my $i (flatten_array($_[0])){
+ if(detect_binary($i)){
+ return 1;
+ }
+ }
+ return 0;
+ }
+
for my $char (split("", $_[0])){
$unicode_val = sprintf("%X", ord($char));
$unicode_val = hex("0x$unicode_val");
- if ($unicode_val < 20 and $unicode_val > 0){
+ if($options{debug}){
+ print "$_[0] \t $char: $unicode_val\n";
+ }
+ if (($unicode_val < 7 && $unicode_val > 0) || ($unicode_val < 32 and $unicode_val > 13)){
+ if($options{debug}){
+ print "Found binary on unicode $unicode_val\n";
+ }
return 1;
}
}
@@ -301,7 +316,7 @@ for my $file (@file_list){
# }
#}
- next if detect_binary($data{$i});#TODO detect_binary creates false positives, for example, LYRICS tag
+ next if detect_binary($data{$i});
$data{$i} =~ s/\"/\'\'/g;
$statement = $statement . "\"$i\" = \"";