[Jifty-commit] r5453 - in Method-Inline: lib/Method

Jifty commits jifty-commit at lists.jifty.org
Sat May 10 14:26:33 EDT 2008


Author: nothingmuch
Date: Sat May 10 14:26:33 2008
New Revision: 5453

Added:
   Method-Inline/Makefile.PL
   Method-Inline/lib/Method/
   Method-Inline/lib/Method/Inline.pm
Modified:
   Method-Inline/Inline.xs

Log:
compile

Modified: Method-Inline/Inline.xs
==============================================================================
--- Method-Inline/Inline.xs	(original)
+++ Method-Inline/Inline.xs	Sat May 10 14:26:33 2008
@@ -4,10 +4,11 @@
 #include "XSUB.h"
 
 struct inlined_cv {
-	SV cv;
+	SV sv;
+	CV *cv;
 	OP *inlined;
 	OP *entersub;
-}
+};
 
 OP *
 Method_Inline_inlined (pTHX) {
@@ -85,7 +86,10 @@
 	if ( i->cv == cv ) {
 		RETURNOP(i->inlined);
 	} else {
-		SETs(cv || sv); /* save some work for ENTERSUB, instead of plain XPUSHs(sv) */
+		/* save some work for ENTERSUB if possible
+		 * disabled because the above is
+		if (cv) SETs((SV *)cv)
+		*/
 		RETURNOP(i->entersub);
 	}
 }
@@ -97,13 +101,13 @@
 
 	/* create our fake SV */
 	Newx(i, 1, struct inlined_cv);
-	i->cv = *cv;
+	i->cv = cv;
 	i->entersub = entersub;
 	i->inlined = inlined;
 
 	op = newSVOP( OP_CUSTOM, 0, (SV *)i );
 
-	op->op_next = entersub->next;
+	op->op_next = entersub->op_next;
 
 	return op;
 }
@@ -116,7 +120,7 @@
 inline_op_pp_addr ()
 	CODE:
 {
-	RETVAL = PTR2IV(Method_Inline_inlined_or_next);
+	RETVAL = PTR2IV(Method_Inline_inlined);
 }
 
 

Added: Method-Inline/Makefile.PL
==============================================================================
--- (empty file)
+++ Method-Inline/Makefile.PL	Sat May 10 14:26:33 2008
@@ -0,0 +1,10 @@
+#!perl -w
+
+use 5.008;
+use strict;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+    NAME		=> 'Method::Inline',
+    VERSION_FROM	=> 'lib/Method/Inline.pm',
+);

Added: Method-Inline/lib/Method/Inline.pm
==============================================================================
--- (empty file)
+++ Method-Inline/lib/Method/Inline.pm	Sat May 10 14:26:33 2008
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+package Method::Inline;
+
+use strict;
+use warnings;
+
+our $VERSION = "0.01";
+
+__PACKAGE__
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Method::Inline - 
+
+=head1 SYNOPSIS
+
+	use Method::Inline;
+
+=head1 DESCRIPTION
+
+=cut
+
+


More information about the Jifty-commit mailing list