summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/if.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/if.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/if.pm16
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