From f5a5272bc7ac5a4c3fa690d0b49be87278e5a946 Mon Sep 17 00:00:00 2001 From: Oswald Buddenhagen Date: Fri, 17 May 2013 19:54:59 +0200 Subject: remove unused symlinkFile() function Change-Id: Ie235fe65020ed7c4870d9c8784a181bf880b9e28 Reviewed-by: Joerg Bornemann --- bin/syncqt.pl | 30 ------------------------------ 1 file changed, 30 deletions(-) (limited to 'bin/syncqt.pl') diff --git a/bin/syncqt.pl b/bin/syncqt.pl index 497e8deb2c..47288ff844 100755 --- a/bin/syncqt.pl +++ b/bin/syncqt.pl @@ -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 -- cgit v1.2.3