This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Revert "Missing bug number in d12b49d""
authorFather Chrysostomos <sprout@cpan.org>
Sat, 21 May 2011 05:08:42 +0000 (22:08 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 21 May 2011 05:08:42 +0000 (22:08 -0700)
This reverts commit d33333ec9850d2a0f2f5466e207dcc612dc4dc31.

dist/constant/lib/constant.pm

index 83bfa66..085ce46 100644 (file)
@@ -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;