qq doesn't interpolate curlies in perl5 by default

timo · timo · commit 56af07785026 · 2015-02-28T12:16:37.000+01:00
psch++
diff --git a/evalbot.pl b/evalbot.pl
@@ -360,7 +360,7 @@ package main;
 }
 
 unless (-e $config_file) {
-	confess("The given config file, $config_file, wasn't found in {getcwd}.");
+	confess("The given config file, $config_file, wasn't found in " . getcwd . ".");
 }
 
 my %conf = %{ Config::File::read_config_file($config_file) };

Original file line number	Diff line number	Diff line change
`@@ -360,7 +360,7 @@ package main;`
`360`	`360`	`}`
`361`	`361`
`362`	`362`	`unless (-e $config_file) {`
`363`		`- confess("The given config file, $config_file, wasn't found in {getcwd}.");`
	`363`	`+ confess("The given config file, $config_file, wasn't found in " . getcwd . ".");`
`364`	`364`	`}`
`365`	`365`
`366`	`366`	`my %conf = %{ Config::File::read_config_file($config_file) };`