Select Code to Download

".. by calling the FastDelete member function:
#
#    $prevSetting= $regKey->FastDelete(1);
#
# which will cause all subsequent delete operations via $regKey to sim
+ply return a true value if they succeed.

use Win32::TieRegistry( Delimiter=>"/", ArrayValues=>1 );

...
{
    print( " delete failed and res is '$res'\n" );
}