Select Code to Download

marvin@smokie:~/perltest $ bleadperl dollar_one_utf8_upgrade.pl 
Without utf8::upgrade...
...
a
a
marvin@smokie:~/perltest $

use strict;
use warnings;
...
    print "$1\n";
}

marvin@smokie:~/projects/perl-git $ git diff
diff --git a/sv.c b/sv.c
...
        } else {
            (void) SvPV_force(sv,len);
        }