At Sun, 21 Nov 2004 20:40:20 +0100, Gerald Richter wrote:
> Any bug reports, patches, documentation updates, spelling corrections are
Various patches from the Debian package..
(NB: it would be nicer if Embperl_BS ended with a newline character)
Self-explanatory ones:
--- libembperl-perl-2.0rc2.orig/Embperl.pm
+++ libembperl-perl-2.0rc2/Embperl.pm
@@ -128,9 +128,7 @@
$req_rec = $_[0] ;
#$req_rec -> log_error ("1 rc = ") ;
my $rc = Embperl::Req::ExecuteRequest ($_[0]) ;
-use Data::Dumper ;
-use Devel::Peek ;
#$req_rec -> log_error ( "2 rc = $rc", Dumper ($rc), Dump ($rc)) ;
return $rc ;
}
--- libembperl-perl-2.0rc2.orig/embpmsgid.pl.templ
+++ libembperl-perl-2.0rc2/embpmsgid.pl.templ
@@ -140,8 +140,46 @@
}
}
+__END__
+=head1 NAME
+embpmsgid.pl - Extract message ids from Embperl files
+=head1 SYNOPSIS
+embpmsgid.pl [I<options>] [I<files>]
+=head1 DESCRIPTION
+
+Extract message ids (C<[= ... =]> blocks) from Embperl files given on
+command line.
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<--datadumper>=I<file>, B<-d>
+
+Use the given file to read and store message ids. Must be valid Perl
+code which defines $msgids.
+
+=item B<--dbm>=I<file>, B<-b>
+
+Use the given file to read and store message ids. Must be a dbm file.
+
+=item B<--languages>=I<code>, B<-l>
+
+Specify language code to generate. Can be given multiple times.
+
+=back
+
+=head1 SEE ALSO
+
+L<Embperl>
+
+=head1 AUTHOR
+
+G. Richter ([EMAIL PROTECTED])
+
+=end
--- libembperl-perl-2.0rc2.orig/mod_embperl.c
+++ libembperl-perl-2.0rc2/mod_embperl.c
@@ -583,7 +583,7 @@
*/
if (bApDebug)
- ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO,
APLOG_STATUSCODE NULL, "EmbperlDebug: create_dir_config %s (0x%x) [%d/%d]\n",
cfg -> AppConfig.sAppName?cfg -> AppConfig.sAppName:"", cfg, getpid(),
gettid()) ;
+ ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO,
APLOG_STATUSCODE NULL, "EmbperlDebug: create_dir_config %s (0x%p) [%d/%d]\n",
cfg -> AppConfig.sAppName?cfg -> AppConfig.sAppName:"", cfg, getpid(),
gettid()) ;
return cfg;
}
@@ -607,7 +607,7 @@
cfg -> bUseEnv = -1 ;
if (bApDebug)
- ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO,
APLOG_STATUSCODE NULL, "EmbperlDebug: create_server_config (0x%x) [%d/%d]\n",
cfg, getpid(), gettid()) ;
+ ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO,
APLOG_STATUSCODE NULL, "EmbperlDebug: create_server_config (0x%p) [%d/%d]\n",
cfg, getpid(), gettid()) ;
return cfg;
@@ -726,7 +726,7 @@
mrg = (tApacheDirConfig *)ap_palloc (subpool,
sizeof(tApacheDirConfig));
if (bApDebug)
- ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO,
APLOG_STATUSCODE NULL, "EmbperlDebug: merge_dir/server_config base=0x%x
add=0x%x mrg=0x%x\n", basev, addv, mrg) ;
+ ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO,
APLOG_STATUSCODE NULL, "EmbperlDebug: merge_dir/server_config base=0x%p
add=0x%p mrg=0x%p\n", basev, addv, mrg) ;
#ifdef APACHE2
apr_pool_cleanup_register(subpool, mrg, embperl_ApacheConfigCleanup,
embperl_ApacheConfigCleanup);
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
