Config.pm (rakudo-2020.08.2) | : | Config.pm (rakudo-2020.09) | ||
---|---|---|---|---|
skipping to change at line 1428 | skipping to change at line 1428 | |||
} | } | |||
sub c_escape_string { | sub c_escape_string { | |||
my $self = shift; | my $self = shift; | |||
my $str = shift; | my $str = shift; | |||
$str =~ s{\\}{\\\\}sg; | $str =~ s{\\}{\\\\}sg; | |||
$str =~ s{"}{\\"}sg; | $str =~ s{"}{\\"}sg; | |||
return $str; | return $str; | |||
} | } | |||
sub sq_escape_string { | ||||
my $self = shift; | ||||
my $str = shift; | ||||
$str =~ s{\\}{\\\\}sg; | ||||
$str =~ s{'}{\\'}sg; | ||||
return $str; | ||||
} | ||||
######################################################### | ######################################################### | |||
### Non-method subs | ### Non-method subs | |||
######################################################### | ######################################################### | |||
sub slash { | sub slash { | |||
state $slash = File::Spec->catfile( '', '' ); | state $slash = File::Spec->catfile( '', '' ); | |||
return $slash; | return $slash; | |||
} | } | |||
sub slurp { | sub slurp { | |||
End of changes. 1 change blocks. | ||||
0 lines changed or deleted | 8 lines changed or added |