home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / perl / 5053 < prev    next >
Encoding:
Internet Message Format  |  1992-07-30  |  1.5 KB
  1. Path: sparky!uunet!mcsun!corton!ircam!fingerhu
  2. From: fingerhu@ircam.fr (Michel Fingerhut)
  3. Newsgroups: comp.lang.perl
  4. Subject: VERSIONS 3.1 -> 3.2 patch
  5. Message-ID: <1992Jul31.092738.14358@ircam.fr>
  6. Date: 31 Jul 92 09:27:38 GMT
  7. Organization: Inst. de Recherche et Coordination Acoustique/Musique, Paris
  8. Lines: 58
  9.  
  10. This small patch fixes the lookup for executables (they can end up
  11. with a relative path).
  12.  
  13. -----------------  Cut here ----------------
  14. ------- versions.sh -------
  15. *** Standard Input    Fri Jul 31 11:24:48 1992
  16. --- versions.sh    Fri Jul 31 11:21:12 1992
  17. ***************
  18. *** 7,13 ****
  19.   #                              manager@ircam.fr
  20.   
  21.   #
  22. ! # versions    3.1 IRCAM 7/31/92
  23.   #
  24.   # Extract program version number
  25.   #
  26. --- 7,13 ----
  27.   #                              manager@ircam.fr
  28.   
  29.   #
  30. ! # versions    3.2 IRCAM 7/31/92
  31.   #
  32.   # Extract program version number
  33.   #
  34. ***************
  35. *** 97,103 ****
  36.   
  37.   # if -v, print version and exit
  38.   if (defined $opt_v) {
  39. !     print "%I% IRCAM %G%";
  40.       exit;
  41.   }
  42.   
  43. --- 97,103 ----
  44.   
  45.   # if -v, print version and exit
  46.   if (defined $opt_v) {
  47. !     print "3.2 IRCAM 7/31/92";
  48.       exit;
  49.   }
  50.   
  51. ***************
  52. *** 156,162 ****
  53.           $path= "$dir/$path", last if -f "$dir/$path";
  54.           }
  55.       }
  56. !     next if $path !~ /^\/.*/ || ! -f $path;
  57.   
  58.       # perform special macro subst: %% -> $path
  59.       $command=~ s/\%\%/$path/g;
  60. --- 156,162 ----
  61.           $path= "$dir/$path", last if -f "$dir/$path";
  62.           }
  63.       }
  64. !     next if ! -f $path;
  65.   
  66.       # perform special macro subst: %% -> $path
  67.       $command=~ s/\%\%/$path/g;
  68.