> From: Gisle Aas [mailto:[email protected]]
> I applied this patch with tests to the repo at
> <http://github.com/gisle/tcl.pm>. I also applied a patch to
> fix RT#56721.
>
> Vadim, do you want to roll a new release? Is there other of
> the RT issues you think we can resolve now?
>
I think there are RTs that we could resolve (e.g.
https://rt.cpan.org/Public/Bug/Display.html?id=61859 )
But maybe it's still good to roll a release.
Attached is the patch to current tcl.pm repository (sorry for not uploading
these changes myself - I have all my passwords unavailable until 06th November,
and also I have bad CR/LFs on my current PC)
I also have a small update to Tcl.xs, which seemingly only affect Tk-related
stuff, so should be unnoticeable in normal cases.
I wonder is it fine with everyone?
Best regards,
Vadim.
diff -rbu gisle-tcl.pm-8303685/Changes tcl.pm-for-cpan-02nov2010/Changes
--- gisle-tcl.pm-8303685/Changes Sun Oct 31 12:35:15 2010
+++ tcl.pm-for-cpan-02nov2010/Changes Tue Nov 2 17:12:34 2010
@@ -1,5 +1,10 @@
Revision history for Perl extension Tcl.
+0.99 2010-11-02
+
+ - more 'stubs' platform binaries
+ - hashes also treated specially in $interp->call(...)
+
0.98 2009-11-24
- moved to git
diff -rbu gisle-tcl.pm-8303685/Tcl.pm tcl.pm-for-cpan-02nov2010/Tcl.pm
--- gisle-tcl.pm-8303685/Tcl.pm Sun Oct 31 12:35:15 2010
+++ tcl.pm-for-cpan-02nov2010/Tcl.pm Tue Nov 2 16:07:11 2010
@@ -1,6 +1,6 @@
package Tcl;
-$Tcl::VERSION = '0.98';
+$Tcl::VERSION = '0.99';
$Tcl::STACK_TRACE = 1;
=head1 NAME
diff -rbu gisle-tcl.pm-8303685/Tcl.xs tcl.pm-for-cpan-02nov2010/Tcl.xs
--- gisle-tcl.pm-8303685/Tcl.xs Sun Oct 31 12:35:15 2010
+++ tcl.pm-for-cpan-02nov2010/Tcl.xs Tue Nov 2 16:20:52 2010
@@ -139,6 +139,12 @@
typedef Tcl_Interp *Tcl;
typedef AV *Tcl__Var;
+#ifdef HAVE_TKINIT
+EXTERN char * TclSetPreInitScript (char * string);
+void TclpInitLibraryPath(char **valuePtr, int *lengthPtr, Tcl_Encoding
*encodingPtr);
+EXTERN void TkWinSetHINSTANCE (HINSTANCE hInstance);
+#endif
+
#ifdef HAVE_BLTINIT
extern Tcl_PackageInitProc Blt_Init, Blt_SafeInit;
#endif
@@ -1039,14 +1045,16 @@
OUTPUT:
RETVAL
-char*
+void
TclpInitLibraryPath(path)
char * path
- CODE:
+ PPCODE:
+ int lengthPtr=0;
+ Tcl_Encoding encodingPtr;
+
if (!initialized) { return; }
- RETVAL = TclpInitLibraryPath(path);
- OUTPUT:
- RETVAL
+ /* interface to TclpInitLibraryPath changed between 8.4.x and 8.5.x */
+ TclpInitLibraryPath(&path, &lengthPtr, &encodingPtr);
void
Tcl_SetDefaultEncodingDir(script)
