diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-10 16:36:12 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-10 16:36:12 +0000 |
| commit | fae406083803c8c68bfaa4eff27de5e9dc626c1d (patch) | |
| tree | 04c2d4374cfb44da60d3e47270a413dcff26c966 /lib/if.pm | |
| parent | a62746fa01f7841968350e8f568bbd10789c4213 (diff) | |
| download | perl-fae406083803c8c68bfaa4eff27de5e9dc626c1d.tar.gz | |
Patch by Ilya Zakharevich to give more meaningful error
messages from if.pm when invoked with a condition in list
context. Also bump if's VERSION.
p4raw-id: //depot/perl@26078
Diffstat (limited to 'lib/if.pm')
| -rw-r--r-- | lib/if.pm | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1,9 +1,11 @@ package if; -$VERSION = '0.0401'; +$VERSION = '0.05'; sub work { my $method = shift() ? 'import' : 'unimport'; + die "Too few arguments to `use if' (some code returning an empty list in list context?)" + unless @_ >= 2; return unless shift; # CONDITION my $p = $_[0]; # PACKAGE @@ -38,6 +40,9 @@ the same as of use MODULE ARGUMENTS; +Above C<< => >> provides necessary quoting of C<MODULE>. If not used (e.g., +no ARGUMENTS to give), you'd better quote C<MODULE> yourselves. + =head1 BUGS The current implementation does not allow specification of the |