bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix saving files in text editor

Browse source 
It stored the old content, so effectively not changing the file.

I don't really understand why *this* was the version I committed,
because I was sure I tested it and it worked :)
This commit is contained in:
Juerd Waalboer 2022-09-06 23:48:55 +02:00
parent 4c380a8ac4
commit 45f12a9354
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/RevBank/TextEditor.pm
View file

@ -130,8 +130,8 @@ sub _editor($title, $origdata) {
], ],
-values => [ 1, 0 ], -values => [ 1, 0 ],
); );
$return = $origdata if $answer == 1; $return = $editor->get if $answer == 1;
$cui->mainloopExit if $answer >= 0; $cui->mainloopExit if $answer >= 0;
} else { } else {
$cui->mainloopExit; $cui->mainloopExit;
} }
@ -163,6 +163,7 @@ sub edit($filename) {
or die "Someone else is alreading editing $filename.\n"; or die "Someone else is alreading editing $filename.\n";
my $save = _editor($filename, scalar slurp $filename); my $save = _editor($filename, scalar slurp $filename);
if (defined $save) { if (defined $save) {
spurt $filename, $save; spurt $filename, $save;
print "$filename updated.\n"; print "$filename updated.\n";