1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
package main;
use strict;
use warnings;
use ExtUtils::Manifest qw{maniread};
use Test::More 0.88;
my $manifest = maniread();
foreach ( sort keys %{ $manifest } ) {
m{ \A bin / }smx
and next;
m{ \A eg / }smx
and next;
m{ \A tools / }smx
and next;
ok ! is_executable(), "$_ should not be executable";
}
done_testing;
sub is_executable {
my @stat = stat $_;
$stat[2] & oct(111)
and return 1;
open my $fh, '<', $_ or die "Unable to open $_: $!\n";
local $_ = <$fh>;
close $fh;
return m{ \A [#]! .* perl }smx;
}
1;
# ex: set textwidth=72 :
|
