rename &warnings::register to avoid ambiguity

until this change code calling "warnings::register->import" was
confused by &warnings::register existing.

1 files changed, 2 insertions, 2 deletions

diff --git a/warnings.pl b/warnings.pl
index 0bb1fab701..e261643ce3 100644
--- a/warnings.pl
+++ b/warnings.pl
@@ -599,7 +599,7 @@ Equivalent to:
     if (warnings::enabled($object))
       { warnings::warn($object, $message) }
 
-=item warnings::register(@names)
+=item warnings::register_categories(@names)
 
 This registers warning categories for the given names and is primarily for
 use by the warnings::register pragma, for which see L<perllexwarn>.
@@ -789,7 +789,7 @@ sub _mkMask
     return $mask;
 }
 
-sub register
+sub register_categories
 {
     my @names = @_;