Permalink
Browse files

Fix string quotes after (last minute) previous change to using doubles.

  • Loading branch information...
1 parent 135cb55 commit f1fa6f38c9ad2b6540922ff2cddbeff43a36caac @timbunce committed Sep 5, 2010
View
4 lib/Java/Javap/Generator/Perl6.pm
@@ -96,8 +96,8 @@ if (0) { # check that types actually are built-in to current perl6
sub perl6_string_literal_filter {
my $value = shift;
- $value =~ s/\\/\\\\/g;
- $value =~ s/"/\\"/g;
+ #$value =~ s/\\/\\\\/g;
+ #$value =~ s/"/\\"/g;
$value =~ s/([^[:print:]])/ sprintf "\\u%04x", ord($1) /eg;
return qq{"$value"};
}
View
2 t/03_class.t
@@ -251,7 +251,7 @@ role dupMethodTest {
method INT_CONST (--> Int) is export { 4 }
method FLOAT_CONST (--> Num) is export { 4.2 }
- method A_STRING_CONST (--> Str) is export { "A string" }
+ method A_STRING_CONST (--> Str) is export { "A \"string\"" }
method B_STRING_CONST (--> Str) is export { "A 'str' & \u0008ack" }
method new (
View
BIN testjavas/dupMethodTest.class
Binary file not shown.
View
2 testjavas/dupMethodTest.java
@@ -1,7 +1,7 @@
public class dupMethodTest {
public static final int INT_CONST = 4;
public static final double FLOAT_CONST = 4.2;
- public static final java.lang.String A_STRING_CONST = "A string";
+ public static final java.lang.String A_STRING_CONST = "A \"string\"";
public static final java.lang.String B_STRING_CONST = "A 'str' & \back";
// public static final java.lang.String C_STRING_CONST = "A \\u2297='\u2297'"; not working
public dupMethodTest() {}

0 comments on commit f1fa6f3

Please sign in to comment.