scip/Config-General
1
0
Fork 0
mirror of https://codeberg.org/scip/Config-General.git synced 2025-12-16 20:21:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix #1: quote all values containing whitespace on writing

Browse Source
This commit is contained in:
Thomas von Dein
2025-01-07 09:58:18 +01:00
parent 6131988cd8
commit 84787e26ac
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
General.pm
View File

@@ -5,7 +5,7 @@
# config values from a given file and # config values from a given file and
# return it as hash structure # return it as hash structure
# #
# Copyright (c) 2000-2022 Thomas Linden <tlinden |AT| cpan.org>. # Copyright (c) 2000-2025 Thomas Linden <tlinden |AT| cpan.org>.
# All Rights Reserved. Std. disclaimer applies. # All Rights Reserved. Std. disclaimer applies.
# Licensed under the Artistic License 2.0. # Licensed under the Artistic License 2.0.
# #
@@ -1425,11 +1425,11 @@ sub _write_scalar {
$line =~ s/([#\$\\\"])/\\$1/g; $line =~ s/([#\$\\\"])/\\$1/g;
} }
# bugfix rt.cpan.org#42287 if ($line =~ /\s/) {
if ($line =~ /^\s/ or $line =~ /\s$/) { # quote lines containing whitespace
# need to quote it
$line = "\"$line\""; $line = "\"$line\"";
} }
$config_string .= $indent . $entry . $this->{StoreDelimiter} . $line . "\n"; $config_string .= $indent . $entry . $this->{StoreDelimiter} . $line . "\n";
} }
@@ -2854,7 +2854,7 @@ I recommend you to read the following documents, which are supplied with Perl:
=head1 LICENSE AND COPYRIGHT =head1 LICENSE AND COPYRIGHT
Copyright (c) 2000-2022 Thomas Linden Copyright (c) 2000-2025 Thomas Linden
This library is free software; you can redistribute it and/or This library is free software; you can redistribute it and/or
modify it under the same terms of the Artistic License 2.0. modify it under the same terms of the Artistic License 2.0.