cvs commit: p5ee/P5EEx/Blue/cgi-bin p5x.PL

[spadkins]

cvsuser     02/06/07 15:46:45

  Modified:    P5EEx/Blue/cgi-bin p5x.PL
  Log:
  allow space-separated list in perlinc
  
  Revision  Changes    Path
  1.4       +2 -2      p5ee/P5EEx/Blue/cgi-bin/p5x.PL
  
  Index: p5x.PL
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/cgi-bin/p5x.PL,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- p5x.PL    19 Apr 2002 14:37:20 -0000      1.3
  +++ p5x.PL    7 Jun 2002 22:46:45 -0000       1.4
  @@ -16,7 +16,7 @@
   
   print OUT <<'!NO!SUBSTITUTIONS!';
   #############################################################################
  -# $Id: p5x.PL,v 1.3 2002/04/19 14:37:20 spadkins Exp $
  +# $Id: p5x.PL,v 1.4 2002/06/07 22:46:45 spadkins Exp $
   #############################################################################
   
   BEGIN {
  @@ -68,7 +68,7 @@
           }
           close(main::FILE);
           if (defined $main::conf{perlinc}) {    # add perlinc entries
  -            unshift(@INC, split(/ *, */,$main::conf{perlinc}));
  +            unshift(@INC, split(/[ ,]+/,$main::conf{perlinc}));
           }
       }