This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Non-invasive mojibake fixes
authorStanislaw Pusep <stas@sysd.org>
Tue, 23 Jun 2015 09:43:10 +0000 (11:43 +0200)
committerJames E Keenan <jkeenan@cpan.org>
Fri, 3 Jul 2015 11:40:19 +0000 (07:40 -0400)
Fixing minor encoding inconsistencies found by scan_mojibake utility
(https://metacpan.org/pod/distribution/Test-Mojibake/bin/scan_mojibake)
This patch is touching only comments/POD/__DATA__

13 files changed:
AUTHORS
regen/feature.pl
t/lib/universal.t
t/mro/basic_04_dfs_utf8.t
t/mro/dbic_dfs_utf8.t
t/mro/isarev.t
t/mro/vulcan_c3_utf8.t
t/mro/vulcan_dfs_utf8.t
t/op/closure.t
t/op/coreamp.t
t/op/reset.t
t/op/stash.t
t/op/tie.t

diff --git a/AUTHORS b/AUTHORS
index c191a7d..2a28775 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -1107,6 +1107,7 @@ Solar Designer                    <solar@openwall.com>
 Spider Boardman                        <spider@orb.nashua.nh.us>
 Spiros Denaxas                 <s.denaxas@gmail.com>
 Sreeji K Das                   <sreeji_k@yahoo.com>
+Stanislaw Pusep                        <stas@sysd.org>
 Stas Bekman                    <stas@stason.org>
 Steffen Müller                        <smueller@cpan.org>
 Steffen Schwigon               <ss5@renormalist.net>
index 4836304..a7b6e5d 100755 (executable)
@@ -276,7 +276,7 @@ for (
        map { (my $__ = uc) =~ y/.//d; $__ } @{$BundleRanges{$_}};
     my $name = $feature{$_};
     my $NAME = uc $name;
-    if ($last && $first eq 'DEFAULT') { #  ‘>= DEFAULT’ warns
+    if ($last && $first eq 'DEFAULT') { #  '>= DEFAULT' warns
        print $h <<EOI;
 #define FEATURE_$NAME\_IS_ENABLED \\
     ( \\
index 3c72f32..5980cad 100644 (file)
@@ -59,7 +59,7 @@ ok !Internals::SvREADONLY($h{b}),
 Internals::SvREADONLY($h{b},0);
 $h{b} =~ y/ia/ao/;
 is __PACKAGE__, 'main',
-  'turning off a cows readonliness did not affect sharers of the same PV';
+  'turning off a cow\'s readonliness did not affect sharers of the same PV';
 
 &Internals::SvREADONLY(\!0, 0);
 eval { ${\!0} = 7 };
index 69dc8ef..6833c32 100644 (file)
@@ -9,6 +9,8 @@ require q(./test.pl); plan(tests => 1);
 
 =pod 
 
+=encoding UTF-8
+
 From the parrot test t/pmc/object-meths.t
 
  ଅ   ᛒ ଅ   ऍ
index cd11815..d618514 100644 (file)
@@ -9,6 +9,8 @@ require q(./test.pl); plan(tests => 1);
 
 =pod
 
+=encoding UTF-8
+
 This example is taken from the inheritance graph of DBIx::Class::Coレ in DBIx::Class v0.07002:
 (No ASCII art this time, this graph is insane)
 
index 3bd543d..892b40c 100644 (file)
@@ -121,7 +121,7 @@ my $A = \%A::;     # keep a ref
 # There should be no A::B isarev entry.
 i"A::B" => qw [], 'assigning to two superclasses at the same time';
 ok !foo->isa("A::B"),
- "A class must not inherit from its superclasss former name";
+ "A class must not inherit from its superclass's former name";
 
 # undeffing globs
 @alpha::ISA = 'beta';
index 68eb12a..e0f48cf 100644 (file)
@@ -8,6 +8,8 @@ require q(./test.pl); plan(tests => 1);
 
 =pod
 
+=encoding UTF-8
+
 example taken from: L<http://www.opendylan.org/books/drm/Method_Dispatch>
 
          옵젳Ṯ
index 92ab9dd..d8ef622 100644 (file)
@@ -9,6 +9,8 @@ require q(./test.pl); plan(tests => 1);
 
 =pod
 
+=encoding UTF-8
+
 example taken from: L<http://www.opendylan.org/books/drm/Method_Dispatch>
 
          옵젳Ṯ
index 42453f4..9d3de7f 100644 (file)
@@ -733,7 +733,7 @@ is $closure_test::s2->()(), '10 cubes',
        };
     };
     $s1->();
-    undef &$s1; # frees $s2s prototype, causing the $s3 proto to have its
+    undef &$s1; # frees $s2's prototype, causing the $s3 proto to have its
                 # CvOUTSIDE point to $s1
     ::is $s2->()(), 3, 'cloning closure proto whose CvOUTSIDE has changed';
 }
index bcc2f1f..b6c9487 100644 (file)
@@ -1088,7 +1088,7 @@ sub main::pakg { &CORE::__PACKAGE__ }
 package main;
 CORE::__DATA__
 I wandered lonely as a cloud
-That floats on high oer vales and hills,
+That floats on high o'er vales and hills,
 And all at once I saw a crowd, 
 A host of golden daffodils!
 Beside the lake, beneath the trees,
index e592430..db82309 100644 (file)
@@ -149,7 +149,7 @@ fresh_perl_is( # it crashes more reliably with a smaller script
      BEGIN { *baz:: = *bar::; *bar:: = *foo:: }
      # The name "bar" no langer refers to the same package
    }
-   undef &foo; # so freeing the op does not remove it from the stashs list
+   undef &foo; # so freeing the op does not remove it from the stash\'s list
    $_ = "";
    push @_, ($_) x 10000;  # and its memory is scribbled over
    reset;  # so reset on the original package tries to reset an invalid op
index af218ad..151b729 100644 (file)
@@ -266,7 +266,7 @@ fresh_perl_is(
     ::is *$globref, "*rile::tat",
      'globs stringify the same way when stashes are moved';
     ::is ref $obj, "rile",
-     'ref() returns the same thing when an objects stash is moved';
+     'ref() returns the same thing when an object\'s stash is moved';
     ::like "$obj", qr "^rile=ARRAY\(0x[\da-f]+\)\z",
      'objects stringify the same way when their stashes are moved';
     ::is eval '__PACKAGE__', 'rile',
@@ -280,7 +280,7 @@ fresh_perl_is(
     ::is *$globref, "*rile::tat",
      'globs stringify the same way when stashes are detached';
     ::is ref $obj, "rile",
-     'ref() returns the same thing when an objects stash is detached';
+     'ref() returns the same thing when an object\'s stash is detached';
     ::like "$obj", qr "^rile=ARRAY\(0x[\da-f]+\)\z",
      'objects stringify the same way when their stashes are detached';
     ::is eval '__PACKAGE__', 'rile',
index 23a9b6f..ae0db6f 100644 (file)
@@ -1452,7 +1452,7 @@ sub {
   tie @a, "Tie::StdArray";  # now @a is tied
   $#a = 20000;  # and FETCHSIZE/AvFILL will now return a big number
   $a[10000] = "crumpets\n";
-  $_ = "$_[0]"; # but defelems dont expect tied arrays and try to read
+  $_ = "$_[0]"; # but defelems don't expect tied arrays and try to read
                 # AvARRAY[10000], which crashes
 }->($a[10000]);
 print