← Back to branch summary

~ubuntu-branches/debian/sid/libembperl-perl/sid

« back to all changes in this revision

Viewing changes to test/html/registry/Execute.htm

  • Committer: Bazaar Package Importer
  • Author(s): Angus Lees
  • Date: 2005-04-20 19:25:44 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 hoary)
  • Revision ID: james.westby@ubuntu.com-20050420192544-dcp6nkxni4puc6h6
Tags: 2.0rc3-1
New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/html/registry/Execute.htm
12
12
# workaround for broken $r -> chdir_file in Apache::Registry on ActiveState perl
13
13
use Cwd ;
14
14
use File::Basename ;
 
15
eval { require Apache::compat } ;
 
16
$@ = '' ;
15
17
 
16
18
my $fn = $r -> filename ;
17
19
chdir(dirname ($fn)) ;
126
128
 
127
129
print "\n<H3>$out</H3>\n" ;
128
130
 
129
 
print "\n<H1> 10.) Done :-)</H1>\n" ;
 
131
print "\n<H1> 10.) Test \$req_rec inside Execute</H1>\n" ;
 
132
 
 
133
Embperl::Execute ('../reqrec.htm') ;
 
134
 
 
135
 
 
136
print "\n<H1> 11.) Done :-)</H1>\n" ;
130
137
 
131
138
 
132
139
print "</body></html>\n";