# -*- buffer-read-only: t -*-
# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
-# This file was created by warnings.pl
+# This file was created by regen/warnings.pl
# Any changes made here will be lost.
#
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>.
return $mask;
}
-sub register
+sub register_categories
{
my @names = @_;