p4raw-id: //depot/perl@25707
NAMES => \@names,
C_FILE => 'constants.h',
XS_FILE => 'constants.xs',
-
);
}
else {
return undef
if $path =~ /(~|\.bak|_bak)$/ ||
- $path =~ /\..*\.swp$/ ;
+ $path =~ /\..*\.swp$/ ||
+ $path =~ /\B\.svn\b/;
return $path;
}