Select Code to Download

sub deleteReg {
    my( $key, $name )= @_;
...
    $Registry,
    "HKEY_LO­CAL_MACHINE/SOFTWARE­/MyWay/",
);

*isa= \&UNIVERSAL::isa;

...
    $Registry,
    "HKEY_LO­CAL_MACHINE/SOFTWARE­/MyWay/",
);

sub regDelTree {
    my $rootKey= shift @_; # Reg key to del subtree from
...
    $Registry,
    "HKEY_LO­CAL_MACHINE/SOFTWARE­/MyWay/",
);