perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Angus Lees <...@inodes.org>
Subject Various Embperl patches from the Debian package [1/3]
Date Fri, 03 Dec 2004 08:18:57 GMT
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 (richter@dev.ecos.de)
+
+=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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message