--- PGPLOT.xs~	Wed Jun 25 11:08:45 1997
+++ PGPLOT.xs	Mon Jan 26 03:48:38 1998
@@ -1393,3 +1393,8 @@
   float	y2
   CODE:
     cpgwnad(x1,x2,y1,y2);
+
+void
+pgEMPTY_FUNCTION_TO_AVOID_A__CORE_DUMP_WITH_PERL_5_04()
+ CODE:
+   return;
