Return-Path: 
 <embperl-return-7986-apmail-perl-embperl-archive=perl.apache.org@perl.apache.org>
Delivered-To: apmail-perl-embperl-archive@www.apache.org
Received: (qmail 39683 invoked from network); 28 Mar 2006 11:48:18 -0000
Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199)
  by minotaur.apache.org with SMTP; 28 Mar 2006 11:48:18 -0000
Received: (qmail 36178 invoked by uid 500); 28 Mar 2006 11:48:12 -0000
Delivered-To: apmail-perl-embperl-archive@perl.apache.org
Received: (qmail 36162 invoked by uid 500); 28 Mar 2006 11:48:11 -0000
Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:embperl-help@perl.apache.org>
list-unsubscribe: <mailto:embperl-unsubscribe@perl.apache.org>
List-Post: <mailto:embperl@perl.apache.org>
List-Id: <embperl.perl.apache.org>
Delivered-To: mailing list embperl@perl.apache.org
Received: (qmail 36151 invoked by uid 99); 28 Mar 2006 11:48:11 -0000
Received: from asf.osuosl.org (HELO asf.osuosl.org) (140.211.166.49)
    by apache.org (qpsmtpd/0.29) with ESMTP; Tue, 28 Mar 2006 03:48:11 -0800
X-ASF-Spam-Status: No, hits=0.0 required=10.0
	tests=
X-Spam-Check-By: apache.org
Received-SPF: neutral (asf.osuosl.org: local policy)
Received: from [212.18.0.9] (HELO mail-out.m-online.net) (212.18.0.9)
    by apache.org (qpsmtpd/0.29) with ESMTP; Tue, 28 Mar 2006 03:48:10 -0800
Received: from mail01.m-online.net (svr21.m-online.net [192.168.3.149])
	by mail-out.m-online.net (Postfix) with ESMTP id 4AEC773479
	for <embperl@perl.apache.org>; Tue, 28 Mar 2006 13:47:48 +0200 (CEST)
X-Auth-Info: oQlQmyFXDYq3mLzRSLhV1dUvGIW6WL+0avuXl62l70Y=
Received: from wortIC.oas.a2e.de (bitmu.a2e.de [62.245.246.162])
	by smtp-auth.mnet-online.de (Postfix) with ESMTP id 442EF921E7
	for <embperl@perl.apache.org>; Tue, 28 Mar 2006 13:47:48 +0200 (CEST)
Received: by wortIC.oas.a2e.de (Postfix, from userid 1000)
	id ED4623FD5D; Tue, 28 Mar 2006 13:50:52 +0200 (CEST)
Date: Tue, 28 Mar 2006 13:50:52 +0200
From: PILCH Hartmut <phm@a2e.de>
To: embperl@perl.apache.org
Subject: printing to OUT from within a package /was: erratic effect of input
 key in Execute
Message-ID: <20060328115052.GM12288@wortIC.oas.a2e.de>
References: <20060327221220.GZ12288@wortIC.oas.a2e.de>
 <20060328032611.527F23F64C8@lnx1.i.ecos.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <20060328032611.527F23F64C8@lnx1.i.ecos.de>
User-Agent: Mutt/1.5.9i
X-Virus-Checked: Checked by ClamAV on apache.org
X-Spam-Rating: minotaur.apache.org 1.6.2 0/1000/N

> > 	[- print WEB "<h3>blablabla</h3>" -]
> 
> You need to print to OUT inside your Embperl code

That works too, except when I do this in a external package, e.g.


foo/bar.pm

	package Foo::Bar;

	[...]

  	sub say1 {
	  print OUT "DEBUG1: ";
	  printf OUT @_;
 	  print OUT "\n";			
	} 

	__END__


saytest.htm

	[- use Foo::Bar qw(say1);
	   sub say2 {
	        print OUT "DEBUG2: ";
		printf OUT @_;
		print OUT "\n";
	   }
          -]
  	 
        <h3>[- say1 "foo" -]</h3>	
        <h3>[- say2 "bar" -]</h3>


This will print only 

	<h3></h3>
        <h3>DEBUG2: bar</h3>

				
Is the file descriptor OUT not accessible from the package ?

--
Hartmut Pilch		http://a2e.de/phm/adv/embperl/

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org