From 6e6576fe178702a9ea224908d46028ad913e0acb Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 2 Jan 2011 07:13:20 -0600 Subject: check Foo::Conflicts if 'Foo' is given as 'also' --- lib/Dist/CheckConflicts.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lib/Dist/CheckConflicts.pm b/lib/Dist/CheckConflicts.pm index 32da3b1..0c2907f 100644 --- a/lib/Dist/CheckConflicts.pm +++ b/lib/Dist/CheckConflicts.pm @@ -99,6 +99,13 @@ sub import { my %conflicts = %{ $conflicts || {} }; for my $also (@{ $alsos || [] }) { eval "require $also; 1;" or next; + if (!exists $CONFLICTS{$also}) { + $also .= '::Conflicts'; + eval "require $also; 1;" or next; + } + if (!exists $CONFLICTS{$also}) { + next; + } my %also_confs = $also->conflicts; for my $also_conf (keys %also_confs) { $conflicts{$also_conf} = $also_confs{$also_conf} -- cgit v1.2.3-54-g00ecf