[svn:dbi] rev 420 - in dbi/trunk: . lib/DBI

[timbo]

Author: timbo
Date: Wed Aug  4 09:49:58 2004
New Revision: 420

Modified:
   dbi/trunk/Changes
   dbi/trunk/lib/DBI/DBD.pm
Log:
Fixed build warnings on VMS reported by Jakob Snoer.


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes   (original)
+++ dbi/trunk/Changes   Wed Aug  4 09:49:58 2004
@@ -6,6 +6,8 @@
 
 =head2 Changes in DBI 1.44 (svn rev ???),    XXX
 
+  Fixed build warnings on VMS reported by Jakob Snoer.
+
   Changed bind_param_array() so it doesn't require all bind arrays
     to have the same number of elements.
   Changed execute_array() definition, and default implementation,

Modified: dbi/trunk/lib/DBI/DBD.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD.pm    (original)
+++ dbi/trunk/lib/DBI/DBD.pm    Wed Aug  4 09:49:58 2004
@@ -3639,7 +3639,7 @@
 sub _inst_checks {
     return if $done_inst_checks++;
     my $cwd = cwd();
-    if ($cwd =~ /$Config{path_sep}/) {
+    if ($cwd =~ /\Q$Config{path_sep}/) {
        warn "*** Warning: Path separator characters (`$Config{path_sep}') ",
            "in the current directory path ($cwd) may cause problems\a\n\n";
         sleep 2;
@@ -3753,7 +3753,7 @@
     my $dbi_driver_xst= '$(DBI_INSTARCH_DIR)/Driver.xst';
     my $xstf_h = '$(DBI_INSTARCH_DIR)/Driver_xst.h';
     if ($^O eq 'VMS') {
-       $dbi_instarch_dir = vmsify($dbi_instarch_dir.'/') unless $is_dbi;
+       $dbi_instarch_dir = vmsify($dbi_instarch_dir.'/');
        $dbi_driver_xst= '$(DBI_INSTARCH_DIR)Driver.xst';
        $xstf_h = '$(DBI_INSTARCH_DIR)Driver_xst.h';
     }