diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/if.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/if.pm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/if.pm b/Master/tlpkg/tlperl/lib/if.pm index b118302714d..1985df4db18 100644 --- a/Master/tlpkg/tlperl/lib/if.pm +++ b/Master/tlpkg/tlperl/lib/if.pm @@ -1,11 +1,13 @@ package if; -$VERSION = '0.0604'; +$VERSION = '0.0606'; 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; + unless (@_ >= 2) { + my $type = ($method eq 'import') ? 'use' : 'no'; + die "Too few arguments to '$type if' (some code returning an empty list in list context?)" + } return unless shift; # CONDITION my $p = $_[0]; # PACKAGE @@ -101,5 +103,11 @@ based on what version of Perl is running. Ilya Zakharevich L<mailto:ilyaz@cpan.org>. -=cut +=head1 COPYRIGHT AND LICENCE + +This software is copyright (c) 2002 by Ilya Zakharevich. +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=cut |