Subversion Repositories DevTools

Rev

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

Rev 241 Rev 245
Line 5525... Line 5525...
5525
sub __PkgDir
5525
sub __PkgDir
5526
{
5526
{
5527
    my( $dir ) = @_;
5527
    my( $dir ) = @_;
5528
    my $org = $dir;
5528
    my $org = $dir;
5529
 
5529
 
5530
    $dir =~ s~^$::Pbase[/]?~~;
5530
    $dir =~ s~^\Q$::Pbase\E[/]?~~;
5531
    Debug2( "  PkgDir: converted \"$org\" to \"$dir\"" );
5531
    Debug2( "  PkgDir: converted \"$org\" to \"$dir\"" );
5532
 
5532
 
5533
    $dir = "\$(PKGDIR)/$dir";
5533
    $dir = "\$(PKGDIR)/$dir";
5534
    return $dir;
5534
    return $dir;
5535
}
5535
}