[Jifty-commit] r5353 - B-Decompile/sketch

[Jifty commits]

Author: clkao
Date: Tue May  6 11:15:01 2008
New Revision: 5353

Modified:
   B-Decompile/sketch/simple.t

Log:
make it compile

Modified: B-Decompile/sketch/simple.t
==============================================================================
--- B-Decompile/sketch/simple.t	(original)
+++ B-Decompile/sketch/simple.t	Tue May  6 11:15:01 2008
@@ -2,9 +2,10 @@
 
 use strict;
 use warnings;
+use B ();
 
 sub code_optree_is ($$;$) {
-	my ( $perl, $tree, $desc ) = @_:
+	my ( $perl, $tree, $desc ) = @_;
 	$desc ||= "optree for '$perl'";
 
 	local $Test::Builder::Level = $Test::Builder::Level + 1;
@@ -28,9 +29,11 @@
 	my $sub = shift;
 	$sub = eval $sub unless ref $sub;
 
-	my $cv_obj = B::svref_2object($cref);
+	my $cv_obj = B::svref_2object($sub);
 
-	my $op = $cv->ROOT->first;
+	my $op = $cv_obj->ROOT->first;
+
+        my $factory; # = ??
 
 	$factory->new_from_op($op);
 }
@@ -42,7 +45,7 @@
 
 code_optree_is(
 	sub_body_tree('sub { 1 }'),
-	B:Simple::OP::Block->new(
+	B::Simple::OP::Block->new(
 		children => [
 			B::Simple::OP::Const->new(
 				value => 1, # FIXME value or sv?
@@ -50,7 +53,7 @@
 				context => "inherit",
 			),
 		],
-	);
+	),
 );
 
 tree_equals(
@@ -64,7 +67,7 @@
 			),
 		],
 	),
-}
+);
 
 tree_equals(
 	sub_body_tree('sub { my $x }'),
@@ -77,4 +80,4 @@
 			),
 		],
 	),
-}
+);