Nicer code for multiline string quotes.

1 files changed, 3 insertions, 1 deletions

diff --git a/intltool-update.in b/intltool-update.in
index e4fdebe..485a4e5 100644
--- a/intltool-update.in
+++ b/intltool-update.in
@@ -451,9 +451,11 @@ sub FindLeftoutFiles
 	my $in_comment = 0;
 	my $in_macro = 0;
         my $in_string = 0;
-        my @multiline_quotes = ("'''", '"""');
+        my @multiline_quotes;
         if ($file =~ /\.scm/) {
             @multiline_quotes = ('"');
+        } else {
+            @multiline_quotes = ("'''", '"""');
         }
 
 	open FILE, "<$file";