bugz.p6

#!/usr/bin/env perl6
use v6;
use Test;
use Email::Simple;

sub is-weird($a) { $a.NFC.Str !eq $a }

my $a = buggy-str() ~ “\n\r”;
say ‘Is weird: ’, is-weird($a);
dd $a;
say $a eq “: \n\r\n\r”;

gistfile1.txt

Is weird: True
Str $a = ": \n\r\n\r"
False

Simple.pm6

unit class Email::Simple;

sub buggy-str is export {
    my $z = ‘’; ‘: ’ ~ $z ~ “\n\r”
}