diff options
author | Oswald Buddenhagen <oswald.buddenhagen@digia.com> | 2013-05-17 19:54:59 +0200 |
---|---|---|
committer | The Qt Project <gerrit-noreply@qt-project.org> | 2013-06-12 13:02:58 +0200 |
commit | f5a5272bc7ac5a4c3fa690d0b49be87278e5a946 (patch) | |
tree | 187c2fadd6afecd03a43d16917d72a402ad348ed /bin/syncqt.pl | |
parent | 49bee21d576df63c679584bb3665cc86cdaa1d01 (diff) |
remove unused symlinkFile() function
Change-Id: Ie235fe65020ed7c4870d9c8784a181bf880b9e28
Reviewed-by: Joerg Bornemann <joerg.bornemann@digia.com>
Diffstat (limited to 'bin/syncqt.pl')
-rwxr-xr-x | bin/syncqt.pl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/bin/syncqt.pl b/bin/syncqt.pl index 497e8deb2c..47288ff844 100755 --- a/bin/syncqt.pl +++ b/bin/syncqt.pl @@ -508,36 +508,6 @@ sub copyFile } ###################################################################### -# 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 # match, string, regular expression to match in dir |