summaryrefslogtreecommitdiffstats
path: root/src/perlmodgen.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/perlmodgen.cpp')
-rw-r--r--src/perlmodgen.cpp4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/perlmodgen.cpp b/src/perlmodgen.cpp
index 2083622..8f38d2d 100644
--- a/src/perlmodgen.cpp
+++ b/src/perlmodgen.cpp
@@ -226,7 +226,7 @@ void PerlModOutput::iaddQuoted(const char *s)
{
char c;
while ((c = *s++) != 0) {
- if (c == '\'')
+ if ((c == '\'') || (c == '\\'))
m_stream->add('\\');
m_stream->add(c);
}
@@ -243,7 +243,7 @@ void PerlModOutput::iaddFieldQuotedChar(const char *field, char content)
{
iaddField(field);
m_stream->add('\'');
- if (content == '\'')
+ if ((content == '\'') || (content == '\\'))
m_stream->add('\\');
m_stream->add(content);
m_stream->add('\'');