summaryrefslogtreecommitdiff
path: root/lib/if.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/if.pm')
-rw-r--r--lib/if.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/if.pm b/lib/if.pm
index 0795dee294..6574d978bb 100644
--- a/lib/if.pm
+++ b/lib/if.pm
@@ -1,13 +1,14 @@
package if;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
sub work {
my $method = shift() ? 'import' : 'unimport';
return unless shift; # CONDITION
my $p = $_[0]; # PACKAGE
- eval "require $p" or die; # Adds .pm etc if needed
+ (my $file = "$p.pm") =~ s!::!/!g;
+ require $file or die;
my $m = $p->can($method);
goto &$m if $m;