diff -r eacf12cbb519 -r d02c3d247fb7 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Thu Jul 22 19:05:23 2004 +0000
+++ b/plugins/perl/perl.c	Fri Jul 23 00:12:55 2004 +0000
@@ -418,11 +418,12 @@
 {
 	GaimPerlScript *gps = (GaimPerlScript *)plugin->info->extra_info;
 
-	if (gps == NULL || gps->unload_sub == NULL)
+	if (gps == NULL)
 		return FALSE;
 
 	gaim_debug(GAIM_DEBUG_INFO, "perl", "Unloading perl script\n");
 
+	if (gps->unload_sub != NULL)
 	{
 		dSP;
 		ENTER;