avoid fatal errors when dist_dir() doesn't exist (#82)

naoya · Mar 11, 2014 · 741b24c · 741b24c
1 parent 1250173
commit 741b24c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Text/Md2Inao/Builder/InDesign.pm b/lib/Text/Md2Inao/Builder/InDesign.pm
@@ -27,7 +27,9 @@ tie my %meta2label, "Tie::IxHash",
 sub _new {
     my $class = shift;
     my $self = $class->SUPER::_new(@_);
-    for my $dir('config', dist_dir('Text-Md2Inao')) {
+
+    # check the repo's config/ first, and then try to get dist_dir()
+    for my $dir('config', eval { dist_dir('Text-Md2Inao') }) {
         if (-d $dir) {
             $self->load_filter_config(path($dir, 'id_filter.json'));
             last;