Subversion Repositories DevTools

Rev

Rev 3967 | Rev 5240 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3967 Rev 5100
Line 395... Line 395...
395 
 
 395 
 
396 
    my $userKey= Win32::TieRegistry->new("CUser")
 396 
    my $userKey= Win32::TieRegistry->new("CUser")
397 
        or  Error( "Can't access HKEY_CURRENT_USER key: $^E" );
 397 
        or  Error( "Can't access HKEY_CURRENT_USER key: $^E" );
398 
 
 398 
 
399 
    my $bcKey;
 399 
    my $bcKey;
400 
    if ($bcKey = $userKey->Open( "Software/Scooter Software/Beyond Compare 3", {Delimiter=>"/"} ))
 400 
    if ($bcKey = $userKey->Open( "Software/Scooter Software/Beyond Compare 4", {Delimiter=>"/"} ))
- 
 
 401 
    {
- 
 
 402 
        Verbose("Using BC4");
- 
 
 403 
        push @DiffArgs, '/solo';
- 
 
 404 
    }
- 
 
 405 
    elsif ($bcKey = $userKey->Open( "Software/Scooter Software/Beyond Compare 3", {Delimiter=>"/"} ))
401 
    {
 406 
    {
402 
        Verbose("Using BC3");
 407 
        Verbose("Using BC3");
403 
        push @DiffArgs, '/solo';
 408 
        push @DiffArgs, '/solo';
404 
    }
 409 
    }
405 
    elsif ($bcKey = $userKey->Open( "Software/Scooter Software/Beyond Compare", {Delimiter=>"/"} ))
 410 
    elsif ($bcKey = $userKey->Open( "Software/Scooter Software/Beyond Compare", {Delimiter=>"/"} ))
406 
    {
 411 
    {
407 
        Verbose("Using BC2");
 412 
        Verbose("Using BC2");
408 
    }
 413 
    }
409 
    else
 414 
    else
410 
    {
 415 
    {
411 
        Error "Can't access BC2 or BC3 Keys: $^E";
 416 
        Error "Can't access BC2, BC3 or BC4 Keys: $^E";
412 
    }
 417 
    }
413 
 
 418 
 
414 
    $DiffProg = $bcKey->GetValue( 'ExePath' )
 419 
    $DiffProg = $bcKey->GetValue( 'ExePath' )
415 
        or Error( "Cannot locate BeyondCompare ExePath in Windows Registry");
 420 
        or Error( "Cannot locate BeyondCompare ExePath in Windows Registry");
416 
 
 421