--- libprelude-1.0.1/bindings/low-level/perl/libprelude_perl.i~	2012-06-01 17:12:00.000000000 +0200
+++ libprelude-1.0.1/bindings/low-level/perl/libprelude_perl.i	2014-09-14 19:52:09.404011239 +0200
@@ -29,7 +29,7 @@
 	char buf[1024];
 
 	snprintf(buf, sizeof(buf), "Prelude error - %s: %s", prelude_strsource(error), prelude_strerror(error));
-	croak(buf);
+	croak("%s", buf);
 }