+my $CAN_IGNORE_EXTERNALS = 0;
+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;
+}
+