diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-10-26 14:59:53 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-10-26 14:59:53 +0000 |
| commit | 0d7509de16bc60421fced9c9069b224cfd591b45 (patch) | |
| tree | 9887d6c6390383c8d3c26f9d006e2375ba03fc63 /lib/if.pm | |
| parent | ea4fd6daa1f959fe03730a32d225d60585be9797 (diff) | |
| download | perl-0d7509de16bc60421fced9c9069b224cfd591b45.tar.gz | |
Fix backward-compatibility issues in if.pm.
p4raw-id: //depot/perl@21540
Diffstat (limited to 'lib/if.pm')
| -rw-r--r-- | lib/if.pm | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1,6 +1,6 @@ package if; -our $VERSION = '0.03'; +$VERSION = '0.04'; sub work { my $method = shift() ? 'import' : 'unimport'; @@ -8,7 +8,7 @@ sub work { my $p = $_[0]; # PACKAGE (my $file = "$p.pm") =~ s!::!/!g; - require $file or die; + require $file; my $m = $p->can($method); goto &$m if $m; |