diff --git a/ChangeLog b/ChangeLog
index f48e0b81d..e7ec7192f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,7 @@
 WeeChat ChangeLog
 =================
 Sébastien Helleu <flashcode@flashtux.org>
-v0.3.8-dev, 2012-03-29
+v0.3.8-dev, 2012-04-03
 
 
 Version 0.3.8 (under dev!)
@@ -46,6 +46,7 @@ Version 0.3.8 (under dev!)
 * irc: add search for lower case nicks in option irc.look.nick_color_force
 * logger: add colors for backlog lines and end of backlog, new options:
   logger.color.backlog_line and logger.color.backlog_end (task #11966)
+* perl: fix crash on quit on OS X
 * relay: redirect some irc messages from clients to hide output (messages: mode,
   ison, list, names, topic, who, whois, whowas, time, userhost) (bug #33516)
 * relay: add "date_printed" and "highlight" in signal "_buffer_line_added"
diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
index 5a05f4227..b8ecfcf75 100644
--- a/src/plugins/scripts/perl/weechat-perl.c
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -1016,7 +1016,7 @@ weechat_plugin_end (struct t_weechat_plugin *plugin)
     }
 #endif
 
-#if defined(PERL_SYS_TERM) && !defined(__FreeBSD__) && !defined(WIN32) && !defined(__CYGWIN__)
+#if defined(PERL_SYS_TERM) && !defined(__FreeBSD__) && !defined(WIN32) && !defined(__CYGWIN__) && !(defined(__APPLE__) && defined(__MACH__))
     /*
      * we call this function on all OS, but NOT on FreeBSD or Cygwin,
      * because it crashes with no reason (bug in Perl?)