| Subject: | [PATCH] detect broken Win32::TieRegistry |
On my Windows system Win32::TieRegistry loads correctly but does not
work.
This small patch sets the success variable for that particular code
block only if the registry key can be read successfully.
This allows DBD::Oracle to configure and build successfully on my
Windows system.
| Subject: | dbd-ora-broken-win32-tieregistry.patch |
Index: Makefile.PL
===================================================================
--- Makefile.PL (revision 15111)
+++ Makefile.PL (working copy)
@@ -994,14 +994,14 @@
eval {
require Win32::TieRegistry;
$Win32::TieRegistry::Registry->Delimiter("/");
- $req_ok = 1;
- $hkey = $Win32::TieRegistry::Registry->{"LMachine/SOFTWARE/Oracle/"};
+ $hkey = $Win32::TieRegistry::Registry->{"LMachine/SOFTWARE/Oracle/"}
+ and $req_ok = 1;
};
eval { # older name of Win32::TieRegistry
require Tie::Registry;
$Tie::Registry::Registry->Delimiter("/");
- $req_ok = 1;
- $hkey = $Tie::Registry::Registry->{"LMachine/SOFTWARE/Oracle/"};
+ $hkey = $Tie::Registry::Registry->{"LMachine/SOFTWARE/Oracle/"}
+ and $req_ok = 1;
} unless $req_ok;
eval {
$default_home = $hkey->{ORACLE_HOME} || '';