summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLConfFile.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-05-28 05:03:56 +0000
committerNorbert Preining <preining@logic.at>2010-05-28 05:03:56 +0000
commit8745ea9056cb2e68717bec2b56317ab67992a23b (patch)
treeab2a7e79b1f0adc07bafb6bd705217d2512b91c5 /Master/tlpkg/TeXLive/TLConfFile.pm
parent6338c3fe69f2e3d729d40494a11f5cf4eea59d55 (diff)
allow to edit/create not existing conf file which will be created
on the go git-svn-id: svn://tug.org/texlive/trunk@18544 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLConfFile.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLConfFile.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLConfFile.pm b/Master/tlpkg/TeXLive/TLConfFile.pm
index 17233ca201f..01567d602b2 100644
--- a/Master/tlpkg/TeXLive/TLConfFile.pm
+++ b/Master/tlpkg/TeXLive/TLConfFile.pm
@@ -237,12 +237,14 @@ sub save
#
sub parse_config_file {
my ($file, $cc, $sep) = @_;
+ my @data;
if (!open(CFG, "<$file")) {
- return;
+ @data = ();
+ } else {
+ @data = <CFG>;
+ chomp(@data);
+ close(CFG);
}
- my @data = <CFG>;
- chomp(@data);
- close(CFG);
my %config = ();
$config{'file'} = $file;