File Term-ReadLine-Gnu-1.16-no_release.dif of Package perl-TermReadLine-Gnu

Overview Repositories Revisions Requests Users Attributes Meta

File Term-ReadLine-Gnu-1.16-no_release.dif of Package perl-TermReadLine-Gnu

--- Term-ReadLine-Gnu-1.16/Gnu.xs
+++ Term-ReadLine-Gnu-1.16/Gnu.xs
@@ -2622,14 +2622,18 @@
 	{
 	  switch (id) {
 	  case 0:
+#if 0	  /* PerlIO_releaseFILE must be called only before closing FILE *. */
 	    if (instreamPIO != NULL)
 	      PerlIO_releaseFILE(instreamPIO, rl_instream);
+#endif
 	    rl_instream = PerlIO_findFILE(stream);
 	    RETVAL = instreamPIO = stream;
 	    break;
 	  case 1:
+#if 0	  /* PerlIO_releaseFILE must be called only before closing FILE *. */
 	    if (outstreamPIO != NULL)
 	      PerlIO_releaseFILE(outstreamPIO, rl_outstream);
+#endif
 	    rl_outstream = PerlIO_findFILE(stream);
 	    RETVAL = outstreamPIO = stream;
 #ifdef __CYGWIN__
@@ -2651,6 +2655,8 @@
 	    XSRETURN_UNDEF;
 	    break;
 	  }
+	  PerlIO_debug("TRG:store_iostream id %d fd %d\n",
+		       id, PerlIO_fileno(RETVAL));
 	}
     OUTPUT:
 	RETVAL
@@ -2679,6 +2685,8 @@
 	    XSRETURN_UNDEF;
 	    break;
 	  }
+	  PerlIO_debug("TRG:fetch_iostream id %d fd %d\n", 
+		       id, PerlIO_fileno(RETVAL));
 	}
     OUTPUT:
 	RETVAL
--- Term-ReadLine-Gnu-1.16/t/readline.t
+++ Term-ReadLine-Gnu-1.16/t/readline.t
@@ -847,7 +847,7 @@
 
 ########################################################################
 # test ornaments
-
+if ($verbose) {
 $INSTR = "\cM\cM\cM\cM\cM\cM\cM";
 print $OUT "# ornaments test\n";
 print $OUT "# Note: Some function may not work on your terminal.\n";
@@ -869,7 +869,7 @@
 print $OUT "\n" unless defined $t->readline("visible bell>");
 $t->ornaments(0);
 print $OUT "# end of ornaments test\n";
-
+}
 print "ok $n\n"; $n++;
 
 ########################################################################

Places

File Term-ReadLine-Gnu-1.16-no_release.dif of Package perl-TermReadLine-Gnu

Places