[svn:p5ee] r10839 - in p5ee/trunk/App-Options: . lib/App

Author: spadkins
Date: Tue Feb 26 18:56:10 2008
New Revision: 10839

Modified:
   p5ee/trunk/App-Options/CHANGES
   p5ee/trunk/App-Options/META.yml
   p5ee/trunk/App-Options/lib/App/Options.pm

Log:
ready for release 1.04

Modified: p5ee/trunk/App-Options/CHANGES
==============================================================================
--- p5ee/trunk/App-Options/CHANGES	(original)
+++ p5ee/trunk/App-Options/CHANGES	Tue Feb 26 18:56:10 2008
@@ -2,6 +2,9 @@
 # CHANGE LOG
 #############################################################################
 
+VERSION 1.04
+ x Fixed RT Bug #33597: Problem of ignoring drive letter on Win32 filesystem.
+
 VERSION 1.03
  x better use of /\s*/ instead of / */ so that tabs don't catch you off-guard
  x enable application use of App::Options objects to read additional data structures

Modified: p5ee/trunk/App-Options/META.yml
==============================================================================
--- p5ee/trunk/App-Options/META.yml	(original)
+++ p5ee/trunk/App-Options/META.yml	Tue Feb 26 18:56:10 2008
@@ -1,6 +1,6 @@
 ---
 name: App-Options
-version: 0.99
+version: 1.04
 author:
   - [email protected]
 abstract: 'Combine command line options, environment vars, and option file values (for program configuration)'
@@ -14,5 +14,5 @@
 provides:
   App::Options:
     file: lib/App/Options.pm
-    version: 0.99
+    version: 1.04
 generated_by: hand

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	Tue Feb 26 18:56:10 2008
@@ -14,7 +14,7 @@
 use File::Spec;
 use Config;
 
-$VERSION = "1.03";
+$VERSION = "1.04";
 
 =head1 NAME
 
@@ -475,6 +475,7 @@
     $prog_dir =~ s!\\!/!g;   # transform to POSIX-compliant (forward slashes)
     $prog_dir =~ s!/$!! if ($prog_dir ne "/");   # remove trailing slash
     $prog_dir =  "." if ($prog_dir eq "");
+    $prog_dir =  $prog_cat . $prog_dir if ($^O =~ /MSWin32/ and $prog_dir =~ m!^/!);
 
     print STDERR "2. Found Directory of Program. catalog=[$prog_cat] dir=[$prog_dir] file=[$prog_file]\n"
         if ($debug_options);