Make less file(1) calls.
authorMikko Värri <vmj@linuxbox.fi>
Tue, 27 Sep 2011 00:56:17 +0000 (03:56 +0300)
committerMikko Värri <vmj@linuxbox.fi>
Tue, 27 Sep 2011 00:56:17 +0000 (03:56 +0300)
lib/Slackware/File.pm

index 4598625..dfa16d2 100644 (file)
@@ -89,9 +89,19 @@ sub is_dir {
     return 0;
 }
 
+sub has_type {
+    my $self = shift;
+    return 0 if $self->is_dir;
+    return 0 unless $self->exists;
+    return 0 if $self->name =~ m[/include/];
+    return 0 if $self->name =~ m[/man/];
+    return 0 if $self->name =~ m[/doc/];
+    return 1;
+}
+
 sub load_type {
     my $self = shift;
-    return undef unless $self->exists();
+    return undef unless $self->has_type;
     my $fsname = $self->{fsname};
     my $type = `file --brief --no-dereference --preserve-date --uncompress $fsname`;
     chomp($type);