Iwao KIMURA on Fri, 11 Dec 1998 17:39:41 +0900


[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]

correction to gphelp


Dear developers,

The following modification makes `perl -wc gphelp' into silence.
My perl is ``This is perl, version 5.005_54 built for i386-freebsd".

--------------------
amaki: {103} diff -uBb gphelp.org gphelp
--- gphelp.org  Fri Dec 11 17:11:19 1998
+++ gphelp      Fri Dec 11 17:12:13 1998
@@ -91,7 +91,7 @@
   {
     $transl{$1}="$2" if (/^([^ ]*) *(.*)/);
   }
-  close(<IN>);
+  close(IN);
 
   $pipe = "cat";
   foreach $suffix (keys %zcat)
@@ -244,7 +244,7 @@
     else
     {
       $last_void = 0 ;
-      split(/ /, $_);
+      @_ = split(/ /, $_);
       for (@_)
       {
        s/@@/ /g; push(@w, $_);
--------------------

# I firstly sent same message to pari-dev-help, sorry.

;#			     Iwao KIMURA			;#
;#		      Institute of Mathematics,			;#
;#		University of TSUKUBA, IBARAKI, JAPAN.		;#