fix bug with 2-arg open(>>)

dk · Jan 7, 2025 · 5b3cc01 · 5b3cc01
1 parent 6f714da
commit 5b3cc01
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Prima/Dialog/FileDialog.pm b/Prima/Dialog/FileDialog.pm
@@ -1438,7 +1438,7 @@ sub Open_Click
 		}
 		if ( !$self-> {openMode} && !$self-> {noTestFileCreate}) {
 			my $file;
-			if ( open $file, ">>$_") {
+			if ( open $file, ">>", $_) {
 				close $file;
 			} else {
 				Prima::MsgBox::message_box( $self-> text, "Cannot create file $_: $!", mb::OK | mb::Error);

diff --git a/Prima/sys/FS.pm b/Prima/sys/FS.pm
@@ -44,7 +44,7 @@ sub open(*;$*)
 	my $flags;
 	my @layers;
 
-	if ( $mode =~ /^([^:\s]+)(.+)$/ ) {
+	if ( $mode =~ /^([^:\s]+)([:\s].*)$/ ) {
 		$mode = $1;
 		my $binmode = $2;
 		$binmode =~ s/^\s+//;