Fixes two breaking space instances

Author: JJ

README.es.md

@@ -114,7 +114,7 @@ Algunas maneras en las que puedes ayudarnos:
 
   2. El tratamiento que las implementaciones hacen de Pod 6 es todavía un poco inconsistente; esto evita impactos potenciales en el tiempo de ejecución.
 
-  3. Un repo separado en la cuenta de Perl 6 de GitHub invita a más contribuidores y editores a participar.
+  3. Un repo separado en la cuenta de Perl 6 de GitHub invita a más contribuidores y editores a participar.
 
 **P:** ¿Debería incluir los métodos de las superclases o de los roles?<br>
 **A:** No. La versión en HTML ya los incluye, y el script `p6doc` también.

doc/Programs/01-debugging.pod6

@@ -4,7 +4,8 @@
 
 =SUBTITLE Debug Perl 6 programs
 
-There are at least two useful debuggers available for Rakudo:
+There are at least two useful debuggers available for Rakudo, the Perl
+6 compiler:
 
 =item L<Debugger::UI::CommandLine|https://modules.perl6.org/repo/Debugger::UI::CommandLine>
 

doc/Type/Systemic.pod6

@@ -15,7 +15,7 @@ through the L«C<$*KERNEL>|/language/variables#Dynamic_variables» and other dyn
 
 Instance method returning the name and version of the object.
 
-    say $*PERL.gist; # OUTPUT: «Perl 6 (6.c)␤»
+    say $*PERL.gist; # OUTPUT: «Perl 6 (6.c)␤»
 
 C<$*PERL> is an object of the L<Perl> type, which mixes in this role and thus implements this method.
 

xt/perl-nbsp.t

@@ -19,17 +19,12 @@ for @files.sort -> $file {
     my $ok = True;
     my $row = 0;
     my @bad;
-    for $file.IO.slurp.lines -> $line {
-        $row++;
-        if $line ~~ / ^ \s+ / {
-            next;
-        }
-        for $line ~~ m:g/ <!after 'implementing '> 'Perl' $<space>=(\s+) \d / -> $match {
-            my $spaces = ~$match<space>;
-            if $spaces.chars != 1 || $spaces.uniname ne "NO-BREAK SPACE" {
-                $ok = False;
-                @bad.push: $row;
-            }
+    my $content = $file.IO.slurp.lines.join(""); 
+    for $content ~~ m:g/ <!after 'implementing '> 'Perl' $<space>=(\s+) \d / -> $match {
+        my $spaces = ~$match<space>;
+        if $spaces.chars != 1 || $spaces.uniname ne "NO-BREAK SPACE" {
+            $ok = False;
+            @bad.push: $row;
         }
     }
     my $error = $file;