Subversion Repositories DevTools

Rev

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

Rev 317 Rev 325
Line 1704... Line 1704...
1704 
            my $link_src = $pkg;
 1704 
            my $link_src = $pkg;
1705 
            open( LNKFILE, '<', "$pkg" ) || Error( "cannot open '$pkg'" );
 1705 
            open( LNKFILE, '<', "$pkg" ) || Error( "cannot open '$pkg'" );
1706 
            $pkg = <LNKFILE>;                   # real path
 1706 
            $pkg = <LNKFILE>;                   # real path
1707 
            close( LNKFILE );
 1707 
            close( LNKFILE );
1708 
            $pkg = '' unless ( $pkg );
 1708 
            $pkg = '' unless ( $pkg );
1709 
            chomp $pkg;
 1709 
            $pkg =~ s~\s+$~~;;
1710 
 
 1710 
 
1711 
            Error ("Broken link: $pkg",
 1711 
            Error ("Broken link: $pkg",
1712 
                   "Source link: $link_src",
 1712 
                   "Source link: $link_src",
1713 
                   "Try deleting the .lnk file" ) unless ( -d $pkg );
 1713 
                   "Try deleting the .lnk file" ) unless ( -d $pkg );
1714 
        }
 1714 
        }