AuroraMiddleware/qt5base-lts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove unused symlinkFile() function

Browse Source 
Change-Id: Ie235fe65020ed7c4870d9c8784a181bf880b9e28
Reviewed-by: Joerg Bornemann <joerg.bornemann@digia.com>
This commit is contained in:
Oswald Buddenhagen 2013-05-17 19:54:59 +02:00 committed by The Qt Project
parent 49bee21d57
commit f5a5272bc7
1 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
bin/syncqt.pl
View File

@ -507,36 +507,6 @@ sub copyFile
return 0;
}
######################################################################
# Syntax: symlinkFile(file, ifile)
# Params: file, string, filename to create "symlink" for
# ifile, string, destination name of symlink
#
# Purpose: File is symlinked to ifile (or copied if filesystem doesn't
# support symlink).
# Returns: 1 on success, else 0.
######################################################################
sub symlinkFile
{
my ($lib, $file, $ifile) = @_;
if ($isunix) {
print "$lib: symlink created for $file " if ($verbose_level);
if ( $force_relative && ($ifile =~ /^$quoted_basedir/)) {
my $t = getcwd();
my $c = -1;
my $p = "../";
$t =~ s-^$quoted_basedir/--;
$p .= "../" while( ($c = index( $t, "/", $c + 1)) != -1 );
$file =~ s-^$quoted_basedir/-$p-;
print " ($file)\n" if($verbose_level);
}
print "\n" if($verbose_level);
return symlink($file, $ifile);
}
return copyFile($lib, $file, $ifile);
}
######################################################################
# Syntax: findFiles(dir, match, descend)
# Params: dir, string, directory to search for name