This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/ + -Wall
[perl5.git] / ext / Filter / Util / Call / Call.xs
index 94bc5da..54b213b 100644 (file)
@@ -11,6 +11,7 @@
  *
  */
 
+#define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
@@ -243,7 +244,8 @@ filter_del()
 
 
 void
-unimport(...)
+unimport(package="$Package", ...)
+    char *package
     PPCODE:
     filter_del(filter_call);