Revert "Revert "Missing bug number in d12b49d""

[perl5.git] / dist / constant / lib / constant.pm

diff --git a/dist/constant/lib/constant.pm b/dist/constant/lib/constant.pm
index 83bfa66..085ce46 100644 (file)
--- a/dist/constant/lib/constant.pm
+++ b/dist/constant/lib/constant.pm
@@ -117,7 +117,7 @@ sub import {
            if ($multiple || @_ == 1) {
                my $scalar = $multiple ? $constants->{$name} : $_[0];
 
            if ($multiple || @_ == 1) {
                my $scalar = $multiple ? $constants->{$name} : $_[0];
 

-               # Work around perl bug #xxxxx: Sub names (actually glob
+               # Work around perl bug #31991: Sub names (actually glob

                # names in general) ignore the UTF8 flag. So we have to
                # turn it off to get the "right" symbol table entry.
                utf8::is_utf8 $name and utf8::encode $name;
                # names in general) ignore the UTF8 flag. So we have to
                # turn it off to get the "right" symbol table entry.
                utf8::is_utf8 $name and utf8::encode $name;