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

[Jifty commits]

Author: clkao
Date: Tue May  6 12:12:21 2008
New Revision: 5354

Modified:
   B-Decompile/sketch/classes.pl

Log:
make it compile

Modified: B-Decompile/sketch/classes.pl
==============================================================================
--- B-Decompile/sketch/classes.pl	(original)
+++ B-Decompile/sketch/classes.pl	Tue May  6 12:12:21 2008
@@ -147,7 +147,7 @@
 	if ( my $parent = $self->_parent ) {
 		return $self->node_from_op($parent->first);
 	} else {
-		croak "No parent or child provided";
+		Carp::croak "No parent or child provided";
 	}
 }
 
@@ -225,7 +225,8 @@
 # has length
 
 sub children {
-	map { $self->node_from_op($_) } shift->root->kids; # FIXME caching to ensure that two accesses return the same values
+    my $self = shift;
+    map { $self->node_from_op($_) } $self->root->kids; # FIXME caching to ensure that two accesses return the same values
 }
 
 package B::Simple::OP::Block;
@@ -242,8 +243,8 @@
 	die "no idea how the factory shit works yet on classes, maybe factory is a required arg to create the attached collection";
 }
 
-Body->new(
-	child_collection => B::Simple::Collection::Element::Attached->new( root => $some_b_op_lineseq_or_scope ),
-);
+#Body->new(
+#	child_collection => B::Simple::Collection::Element::Attached->new( root => $some_b_op_lineseq_or_scope ),
+#);