# HG changeset patch
# User Luke Schierer <lschiere@pidgin.im>
# Date 1048556514 0
# Node ID f0140b7e10a006b851f4bd128c12e5e1c06a6f52
# Parent  1bf59e3ac4fff9979a4b0a6ffe8b2f1442444ca5
[gaim-migrate @ 5216]
chip things this might allow that perl 5.000... fix not to break perl 5.8

committer: Tailor Script <tailor@pidgin.im>

diff -r 1bf59e3ac4ff -r f0140b7e10a0 src/perl.c
--- a/src/perl.c	Tue Mar 25 01:29:37 2003 +0000
+++ b/src/perl.c	Tue Mar 25 01:41:54 2003 +0000
@@ -34,10 +34,6 @@
 
 #ifdef USE_PERL
 
-#ifndef call_pv
-# define call_pv(i,j) perl_call_pv(i,j)
-#endif
-
 #define group perl_group
 #ifdef _WIN32
 /* This took me an age to figure out.. without this __declspec(dllimport)
@@ -87,6 +83,10 @@
 #include "prpl.h"
 #include "sound.h"
 
+#ifndef call_pv
+# define call_pv(i,j) perl_call_pv(i,j)
+#endif
+
 struct perlscript {
 	char *name;
 	char *version;