[svn:parrot] r47588 - trunk/config/gen

[coke at svn.parrot.org]

Author: coke
Date: Sun Jun 13 02:41:12 2010
New Revision: 47588
URL: https://trac.parrot.org/parrot/changeset/47588

Log:
Not every bit of config information is ASCII-safe.
Fixes TT #888

Modified:
   trunk/config/gen/config_pm.pm

Modified: trunk/config/gen/config_pm.pm
==============================================================================
--- trunk/config/gen/config_pm.pm	Sun Jun 13 02:13:55 2010	(r47587)
+++ trunk/config/gen/config_pm.pm	Sun Jun 13 02:41:12 2010	(r47588)
@@ -119,7 +119,11 @@
                     # String
                     $v =~ s/(["\\])/\\$1/g;
                     $v =~ s/\n/\\n/g;
-                    print {$OUT} qq(    set \$P0["$k"], "$v"\n);
+                    my $charset = q{};
+                    if ($v =~ /[^[:ascii:]]/) {
+                        $charset = 'binary:';
+                    }
+                    print {$OUT} qq(    set \$P0["$k"], $charset"$v"\n);
                 }
                 else {
                     # Null