+my $CAN_IGNORE_EXTERNALS = 0;
+if (not $options{hooks_only}) {
+ qx(svn --version) =~ /\(r(\d+)\)/;
+ if ($1 > 13838) {
+ $CAN_IGNORE_EXTERNALS = 1;
+ }
+}
+
+sub available_config_files{
+ my $dir;
+ opendir($dir, "$HOME/.sa.d/") or return ();
+ return map {"$HOME/.sa.d/$_"} grep /^[\w\d][\w\d_.-]+$/, readdir $dir;
+}
+