[perl-glib] Fix test failure in t/g.t due to apparent changes in GKeyFile

[Torsten Schönfeld <tsch src gnome org>]

commit 268df1209a5775ea3eafe2a4ff4cc5149a465e5b
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun Aug 4 17:05:50 2019 +0200

    Fix test failure in t/g.t due to apparent changes in GKeyFile

 t/g.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/t/g.t b/t/g.t
index 2f851be..4c7cd2c 100644
--- a/t/g.t
+++ b/t/g.t
@@ -84,7 +84,7 @@ SKIP: {
        eq_array (\@bools, [FALSE, TRUE, FALSE]);
 
        ok ($key_file->has_group('locales'));
-       is ($key_file->get_comment('locales', 'mystring'), "some string\n");
+       like ($key_file->get_comment('locales', 'mystring'), qr/^some string$/);
        is ($key_file->get_string('locales', 'mystring'), 'Good morning');
        is ($key_file->get_locale_string('locales', 'mystring', 'it'), 'Buongiorno');
 
@@ -94,11 +94,11 @@ SKIP: {
        $key_file->set_string_list('listsection', 'stringlist', 'one', 'two', 'three');
        $key_file->set_locale_string('locales', 'mystring', 'en', 'one');
        $key_file->set_comment('locales', 'mystring', 'comment');
-       is ($key_file->get_comment('locales', 'mystring'), "comment\n");
+       like ($key_file->get_comment('locales', 'mystring'), qr/^comment$/);
        $key_file->set_comment('locales', undef, "another comment\n");
        is ($key_file->get_comment('locales', undef), "#another comment\n#");
        $key_file->set_comment(undef, undef, 'one comment more');
-       is ($key_file->get_comment(undef, undef), "one comment more\n");
+       like ($key_file->get_comment(undef, undef), qr/^one comment more$/);
        $key_file->set_boolean($start_group, 'boolkey', FALSE);
        $key_file->set_value($start_group, 'boolkey', '0');