From 51932e737e79c866baee914297ddbb8a6f6f80bc Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@venexma.es>
Date: Tue, 8 Jan 2008 11:07:05 +0100
Subject: [PATCH] If no code is set in foreach(), /bin/bash is used.

---
 Artemus.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Artemus.pm b/Artemus.pm
index c2b9acf..8f988fd 100644
--- a/Artemus.pm
+++ b/Artemus.pm
@@ -367,7 +367,7 @@ sub new
 
 	$a->{funcs}->{'foreach'}	= sub {
 		my $list	= shift;
-		my $code	= shift;
+		my $code	= shift || '$0';
 		my $sep		= shift || '';
 
 		my @ret = ();
-- 
2.11.4.GIT