Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/makelib.pl2 – Rev 241 → 245



sub __PkgDir
{
    my( $dir ) = @_;
    my $org = $dir;
 
    $dir =~ s~^\Q$::Pbase\E[/]?~~;
    Debug2( "  PkgDir: converted \"$org\" to \"$dir\"" );
 
    $dir = "\$(PKGDIR)/$dir";
    return $dir;
}

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	`}`