diff -c -r ppl-plug-0.94.orig/src/np_perl.h ppl-plug-0.94/src/np_perl.h
*** ppl-plug-0.94.orig/src/np_perl.h	Mon Dec 14 17:27:00 1998
--- ppl-plug-0.94/src/np_perl.h	Tue Mar 30 10:36:02 1999
***************
*** 27,33 ****
  #define PPL_INBUF_SZ		4096 /* size of area to malloc for stream buffer */
  #define PPL_OPLIST_SZ		2048 /* size of the area to malloc for the oplist */
  #define PPL_MAX_STRING_LENGTH	 256 /* Generic max string length */
! #define PPL_WINPARM_SZ		 256 /* max size of window parameters string */
  #define PPL_MAX_CMD		PPL_MAX_STRING_LENGTH+256+PPL_WINPARM_SZ+PPL_OPLIST_SZ+7+1
  
  /*
--- 27,33 ----
  #define PPL_INBUF_SZ		4096 /* size of area to malloc for stream buffer */
  #define PPL_OPLIST_SZ		2048 /* size of the area to malloc for the oplist */
  #define PPL_MAX_STRING_LENGTH	 256 /* Generic max string length */
! #define PPL_WINPARM_SZ           512 /* max size of window parameters string */
  #define PPL_MAX_CMD		PPL_MAX_STRING_LENGTH+256+PPL_WINPARM_SZ+PPL_OPLIST_SZ+7+1
  
  /*
diff -c -r ppl-plug-0.94.orig/src/npperlplus.c ppl-plug-0.94/src/npperlplus.c
*** ppl-plug-0.94.orig/src/npperlplus.c	Wed Mar 24 14:57:53 1999
--- ppl-plug-0.94/src/npperlplus.c	Tue Mar 30 10:30:43 1999
***************
*** 579,585 ****
  
    /* Build a perl string for the %Plugin::brinfo hash to hold the window parameters for Tk. */
  
!   sprintf(winparms, "$Plugin::brinfo{xwindow_id} = 0x%x; $Plugin::brinfo{x_min} = %d; $Plugin::brinfo{y_min} = %d; $Plugin::brinfo{x_len} = %d; $Plugin::brinfo{y_len} = %d; $Plugin::brinfo{display} = 0x%x; $Plugin::brinfo{version} = %s;",
  	  This->window, This->x, This ->y, This->width, This->height, This->display, VERSION);
  
    l = strlen(This->perl_exe) + strlen(cmdpre) + strlen(winparms) + strlen(cmdpst) + 7 + 1;
--- 579,586 ----
  
    /* Build a perl string for the %Plugin::brinfo hash to hold the window parameters for Tk. */
  
!   sprintf(winparms, "$Plugin::brinfo{xwindow_id} = 0x%x; $Plugin::brinfo{x_min} = %d; $Plugin::brinfo{y_min} = %d; $Plugin::brinfo{x_len} = %d; $Plugin::brinfo{y_len} = %d; $Plugin::brinfo{display} = 0x%x; $Plugin::brinfo{version} = %s; {package PerlPlusPluginMW; use base qw/Tk::MainWindow/; sub new {my $mw = Tk::MainWindow->new('-use' => $Plugin::brinfo{'xwindow_id'}); return $mw; }} @MainWindow::ISA = 'PerlPlusPluginMW';
! ",
  	  This->window, This->x, This ->y, This->width, This->height, This->display, VERSION);
  
    l = strlen(This->perl_exe) + strlen(cmdpre) + strlen(winparms) + strlen(cmdpst) + 7 + 1;