[svn:p5ee] r15185 - p5ee/trunk/App-Options/lib/App

[spadkins]

Author: spadkins
Date: Sat Feb 25 17:35:34 2012
New Revision: 15185

Modified:
   p5ee/trunk/App-Options/lib/App/Options.pm

Log:
removed Throws: comments. added PREFIX/lib/perl5 to auto directories.

Modified: p5ee/trunk/App-Options/lib/App/Options.pm
==============================================================================
--- p5ee/trunk/App-Options/lib/App/Options.pm   (original)
+++ p5ee/trunk/App-Options/lib/App/Options.pm   Sat Feb 25 17:35:34 2012
@@ -176,11 +176,6 @@
     * Param:  print_usage 
               provide an alternate print_usage() function
     * Return: void
-    * Throws: "App::Options->init(): must have an even number of vars/values 
for named args"
-    * Throws: "App::Options->init(): 'values' arg must be a hash reference"
-    * Throws: "App::Options->init(): 'option' arg must be a hash reference"
-    * Throws: "App::Options->init(): 'options' arg must be an array reference"
-    * Since:  0.60
 
     Sample Usage: (normal)
 
@@ -810,14 +805,17 @@
                 if (-d "$libdir/perl5") {
                     unshift(@INC, "$libdir/perl5/site_perl/$perlversion");  # 
site_perl goes first!
                     unshift(@INC, "$libdir/perl5/$perlversion");
+                    unshift(@INC, "$libdir/perl5");
                 }
                 elsif (-d "$libdir/perl") {
                     unshift(@INC, "$libdir/perl/site_perl/$perlversion");   # 
site_perl goes first!
                     unshift(@INC, "$libdir/perl/$perlversion");
+                    unshift(@INC, "$libdir/perl");
                 }
                 if (-d "$prefix/share/perl") {
                     unshift(@INC, 
"$prefix/share/perl/site_perl/$perlversion");   # site_perl goes first!
                     unshift(@INC, "$prefix/share/perl/$perlversion");
+                    unshift(@INC, "$prefix/share/perl");
                 }
             }
         }