reduced escapes in Perl code

SeleniumHQ · Feb 26, 2014 · d7dbc30 · d7dbc30
1 parent 0785d10
commit d7dbc30
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/ide/plugins/perl-format/src/content/formats/perl-rc.js b/ide/plugins/perl-format/src/content/formats/perl-rc.js
@@ -27,14 +27,12 @@ var formatter = this;
 string = function(value) {
 	if (value != null) {
 		value = value.replace(/\\/g, '\\\\');
-		value = value.replace(/\"/g, '\\"');
+		value = value.replace(/\'/g, '\\\'');
 		value = value.replace(/\r/g, '\\r');
 		value = value.replace(/\n/g, '\\n');
-		value = value.replace(/@/g, '\\@');
-		value = value.replace(/\$/g, '\\$');
-		return '"' + value + '"';
+		return '\'' + value + '\'';
 	} else {
-		return '""';
+		return '\'\'';
 	}
 }