home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / perl / 4865 < prev    next >
Encoding:
Internet Message Format  |  1992-07-21  |  1.4 KB
  1. Path: sparky!uunet!mcsun!corton!ircam!fingerhu
  2. From: fingerhu@ircam.fr (Michel Fingerhut)
  3. Newsgroups: comp.lang.perl
  4. Subject: Patch to versions 2.1
  5. Message-ID: <1992Jul22.071956.27254@ircam.fr>
  6. Date: 22 Jul 92 07:19:56 GMT
  7. Organization: Inst. de Recherche et Coordination Acoustique/Musique, Paris
  8. Lines: 57
  9.  
  10. A small-but-significant undetected typo (which still allowed the program to work
  11. in most cases) occurred.  Please apply this patch...
  12.  
  13. ------- versions.sh -------
  14. *** Standard Input    Wed Jul 22 09:14:19 1992
  15. --- versions.sh    Wed Jul 22 09:09:02 1992
  16. ***************
  17. *** 7,13 ****
  18.   #                              manager@ircam.fr
  19.   
  20.   #
  21. ! # versions    2.1 IRCAM 7/21/92
  22.   #
  23.   # Modification history
  24.   #
  25. --- 7,13 ----
  26.   #                              manager@ircam.fr
  27.   
  28.   #
  29. ! # versions    2.2 IRCAM 7/22/92
  30.   #
  31.   # Modification history
  32.   #
  33. ***************
  34. *** 58,64 ****
  35.   
  36.   # if -v, print version and exit
  37.   if ($v) {
  38. !     print "2.1 IRCAM 7/21/92";
  39.       exit;
  40.   }
  41.   
  42. --- 58,64 ----
  43.   
  44.   # if -v, print version and exit
  45.   if ($v) {
  46. !     print "2.2 IRCAM 7/22/92";
  47.       exit;
  48.   }
  49.   
  50. ***************
  51. *** 94,100 ****
  52.       } else {                # if tab, description section
  53.   
  54.       # perform macro substitution on all the line
  55. !     foreach $key (%macro) { 
  56.           s/\%$key/$macro{$key}/g;
  57.       }
  58.   
  59. --- 94,100 ----
  60.       } else {                # if tab, description section
  61.   
  62.       # perform macro substitution on all the line
  63. !     foreach $key (keys %macro) { 
  64.           s/\%$key/$macro{$key}/g;
  65.       }
  66.   
  67.