Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the DBD-Oracle CPAN distribution.

Report information
The Basics
Id: 74544
Status: resolved
Priority: 0/
Queue: DBD-Oracle

People
Owner: Nobody in particular
Requestors: rkitover [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.38
Fixed in: (no value)

Attachments


Subject: [PATCH] detect broken Win32::TieRegistry
Download (untitled) / with headers
text/plain 286b
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} || '';
Fixed in v1.40


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.