From 7c7e861873a6768458cf36b695852d027673370e Mon Sep 17 00:00:00 2001
From: David Schleef <ds@schleef.org>
Date: Wed, 12 Feb 2003 22:07:38 +0000
Subject: Update CVS to Debian 0.9.18-1 package

---
 debian/fixlinks | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'debian/fixlinks')

diff --git a/debian/fixlinks b/debian/fixlinks
index 39f719b12..110a5e313 100755
--- a/debian/fixlinks
+++ b/debian/fixlinks
@@ -2,10 +2,11 @@
 # vi: set ts=4:
 
 
-@LINKS=`find . -type l|xargs ls -l`;
+@LINKS=`find . -type l|LC_ALL=C xargs ls -l`;
 
 #print @LINKS;
 
+#$debug = 1;
 
 while($_ = shift @LINKS){
 	chomp;
@@ -34,7 +35,7 @@ while($_ = shift @LINKS){
 			pop(@newcomponents);
 
 			while($comp = shift @linkcomponents){
-				#print "path: ",join(':',@newcomponents)," -- $comp -- ", join(':',@linkcomponents),"\n";
+				$debug && print "path: ",join(':',@newcomponents)," -- $comp -- ", join(':',@linkcomponents),"\n";
 
 				if($comp eq ""){
 					# ignore
@@ -57,8 +58,8 @@ while($_ = shift @LINKS){
 		#print "to ",join('/',@newcomponents),"\n";
 
 		if($newcomponents[0] eq $pathcomponents[0]){
-			#print $newcomponents[0],", ",$pathcomponents[0];
-			#print "should be relative\n";
+			$debug && print $newcomponents[0],", ",$pathcomponents[0];
+			$debug && print "should be relative\n";
 			while($newcomponents[0] eq $pathcomponents[0]){
 				shift(@newcomponents);
 				shift(@pathcomponents);
@@ -68,7 +69,7 @@ while($_ = shift @LINKS){
 				unshift(@newcomponents,"..");
 			}
 		}else{
-			#print "should be absolute\n";
+			$debug && print "should be absolute\n";
 			unshift(@newcomponents,"");
 		}
 		$newlink=join('/',@newcomponents);
-- 
cgit v1.2.3