In perl.git, the branch maint-5.10 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/bd8bb1d4974c641d8623d7d3bc3216a8e0eb0c32?hp=dfc0ab62c3d85b034578d7b6ba08580a016a06b1>
- Log ----------------------------------------------------------------- commit bd8bb1d4974c641d8623d7d3bc3216a8e0eb0c32 Author: Steve Hay <[email protected]> Date: Wed May 6 12:50:09 2009 +0100 Fix code before declaration compile error on Win32 The code written out by ExtUtils::Miniperl::writemain() contained the code PERL_UNUSED_CONTEXT; before the declarations const char file[] = __FILE__; dXSUB_SYS; which Win32's VC++ compiler doesn't like. (cherry picked from commit 938cfd5cbc71c8edc25160094f2b45a593724fb5) M minimod.pl commit b92f9b4ba7e090655a549606a853075dd3d666d9 Author: David Cantrell <[email protected]> Date: Wed May 6 11:26:56 2009 +0100 perltie.pod docpatch Some years ago I submitted a docpatch for perltie to mention DBM::Deep alongside MLDBM. This updates that patch. The change is merely to remove the word "experimental" now that DBM::Deep is over five years old and is stable. $ diff -u ./pod/perltie.pod~ ./pod/perltie.pod Signed-off-by: Abigail <[email protected]> (cherry picked from commit bebf870e6d027ca8a7a3da6a23b4612c5178aae4) M pod/perltie.pod commit 89adae738f439a993ac517dff47bc7b8b838d3c9 Author: Steve Hay <[email protected]> Date: Wed May 6 10:25:00 2009 +0100 Export two more PerlIO symbols. Ben Morrow noticed that: PerlIO_push is exported, but PerlIO_find_layer is not, so getting a PerlIO_funcs* to pass to it is difficult. Several exported functions (PerlIO_parse_layers, PerlIO_layer_fetch, PerlIO_list_free, ...) take a PerlIO_list_t* argument, but PerlIO_list_alloc is not exported, so these are effectively useless. (cherry picked from commit 4dcdb34ab7673f92a45785ff83aaec90cce7bfd6) M makedef.pl ----------------------------------------------------------------------- Summary of changes: makedef.pl | 2 ++ minimod.pl | 7 ++++--- pod/perltie.pod | 2 +- 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/makedef.pl b/makedef.pl index 3ab200d..03917f1 100644 --- a/makedef.pl +++ b/makedef.pl @@ -1013,8 +1013,10 @@ my @layer_syms = qw( PerlIO_arg_fetch PerlIO_debug PerlIO_define_layer + PerlIO_find_layer PerlIO_isutf8 PerlIO_layer_fetch + PerlIO_list_alloc PerlIO_list_free PerlIO_modestr PerlIO_parse_layers diff --git a/minimod.pl b/minimod.pl index fea77c0..bd945c2 100644 --- a/minimod.pl +++ b/minimod.pl @@ -67,11 +67,12 @@ sub writemain{ print "EXTERN_C void boot_${cname} (pTHX_ CV* cv);\n"; } - my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s ); - print $tail1; + my ($tail1,$tail2,$tail3) = ( $tail =~ /\A(.*{\s*\n)(.*\n)(\s*\}.*)\Z/s ); + print $tail1; print "\tconst char file[] = __FILE__;\n"; print "\tdXSUB_SYS;\n" if $] > 5.002; + print $tail2; foreach $_ (@exts){ my($pname) = canon('/', $_); @@ -91,7 +92,7 @@ sub writemain{ } print "\t}\n"; } - print $tail2; + print $tail3; } sub canon{ diff --git a/pod/perltie.pod b/pod/perltie.pod index 162272b..3473667 100644 --- a/pod/perltie.pod +++ b/pod/perltie.pod @@ -1168,7 +1168,7 @@ tie methods for slice operations. You cannot easily tie a multilevel data structure (such as a hash of hashes) to a dbm file. The first problem is that all but GDBM and Berkeley DB have size limitations, but beyond that, you also have problems -with how references are to be represented on disk. One experimental +with how references are to be represented on disk. One module that does attempt to address this need is DBM::Deep. Check your nearest CPAN site as described in L<perlmodlib> for source code. Note that despite its name, DBM::Deep does not use dbm. Another earlier attempt -- Perl5 Master Repository
