12 use Symbol
qw(gensym);
14 my $ext = qr/(?: php | inc | txt | sql | t)/x;
17 find
( sub { push @files, $File::Find
::name
if -f
&& /\. $ext $/x }, '.' );
19 plan tests
=> scalar @files ;
21 for my $file (@files) {
22 open NULL
, '+>', File
::Spec
->devnull and \
*NULL
or die;
23 my $pid = open3
('<&NULL', \
*P
, '>&NULL', qw
'svn propget svn:eol-style', $file);
24 my $res = do { local $/; <P
> . "" };
29 pass
"svn propget failed, $file probably not under version control";
30 } elsif ( $res eq 'native' ) {
31 pass
"$file svn:eol-style is 'native'";
33 fail
"$file svn:eol-style is '$res', should be 'native'";