Subversion Repositories DevTools

Rev

Rev 255 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 255 Rev 261
Line 993... Line 993...
993 
    #
 993 
    #
994 
    #   Walk up the directory until we find the vob root
 994 
    #   Walk up the directory until we find the vob root
995 
    #   The vob has a leading /
 995 
    #   The vob has a leading /
996 
    #
 996 
    #
997 
    my $dir = $$directory;
 997 
    my $dir = $$directory;
- 
 
 998 
    my $absdir = AbsPath($dir);
998 
    while ( $$directory )
 999 
    while ( $absdir )
999 
    {
 1000 
    {
1000 
        if ( $$directory =~ m{(.*)\Q$vob\E$} )
 1001 
        if ( $absdir =~ m{(.*)\Q$vob\E$} )
1001 
        {
 1002 
        {
1002 
            Verbose ("Massaged path to: $$directory");
 1003 
            Verbose ("Massaged path to: $absdir");
1003 
            return;
 1004 
            return;
1004 
        }
 1005 
        }
1005 
        last unless ($$directory =~ s{/[^/]+$}{});
 1006 
        last unless ($absdir =~ s{/[^/]+$}{});
1006 
    }
 1007 
    }
1007 
    Error ("Could not find vob root in user directory",
 1008 
    Error ("Could not find vob root in user directory",
1008 
           "Vob Root: $vob",
 1009 
           "Vob Root: $vob",
1009 
           "Path : $dir");
 1010 
           "Path : $dir");
1010 
 
 1011