how do I use Win32::TieRegistry in a multi-platform program?

perltux has asked for the wisdom of the Perl Monks concerning the following question:

If I use Win32::TieRegistry in a program meant to run both on Windows an Linux I get the following error when running it on Linux:

Global symbol "$Registry" requires explicit package name at ./script.pl line 16.
Execution of ./script.pl aborted due to compilation errors.

The code that leads to this is (this is only an extract of a much larger program):

#!/usr/bin/perl
use strict;
use warnings;

my $LINUX;
my $WINDOWS;

BEGIN{
    if ($^O eq 'linux') { $LINUX=1; }
    elsif ($^O eq 'MSWin32') { $WINDOWS=1; }
}

use if ($WINDOWS), 'Win32::TieRegistry' => (Delimiter => '/');

if ($WINDOWS) {
    my $mykey=$Registry->{'HKEY_CURRENT_USER/Control Panel/Desktop/Win
+dowMetrics'};
    my $wdpi=hex($mykey->{'AppliedDPI'}) .'dpi / ';
}
[download]

The problem is that $Registry is undefined when this program runs on Linux. How do I solve this?
Many thanks in advance

Comment on how do I use Win32::TieRegistry in a multi-platform program? Download Code

Replies are listed 'Best First'.
Re: how do I use Win32::TieRegistry in a multi-platform program? by haukex (Archbishop) on Mar 01, 2018 at 20:47 UTC
Try putting `our $Registry;` as the first thing inside the `if ($WINDOWS)` (untested and works). And BTW, this question has been asked before: Conditional use of Win32::TieRegistry	[reply] [d/l] [select]
Re^2:how do I use Win32::TieRegistry in a multi-platform program? by perltux (Monk) on Mar 01, 2018 at 21:55 UTC
many thanks, I can confirm too that your solution works! I don't know how I missed the other thread, I did search for this (with google) before posting here.	[reply]
Re: how do I use Win32::TieRegistry in a multi-platform program? by ikegami (Patriarch) on Mar 04, 2018 at 02:02 UTC
I'd create a module for each platform, and load the appropriate module. `sub get_sys_info { if ($^O eq 'Win32') { require My::SystemInfo::Win32; return My::SystemInfo::Win32->new(); } else { require My::SystemInfo::Unix; return My::SystemInfo::Unix->new(); } } my $sys_info = get_sys_info(); ... $sys_info->wdpi ...` [download]	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.