Changeset 18043 for lang/perl/Data-CodeRepos-CommitPing/trunk

Timestamp:

08/22/08 16:37:10 (5 months ago)

Author:

yappo

Message:

dieしないように

Files:

• lang/perl/Data-CodeRepos-CommitPing/trunk/lib/Data/CodeRepos/CommitPing.pm (modified) (1 diff)

lang/perl/Data-CodeRepos-CommitPing/trunk/lib/Data/CodeRepos/CommitPing.pm

@@ -50 +50 @@
         next unless $file->{path_list}->[0];
         my $proj = 'proj_' . $file->{path_list}->[0];
-        my $path = $self->$proj($file);
+        my $path = eval{ $self->$proj($file) };
+        next if $@;
         $changes_projs->{$path}++;
     }