diff options
| author | David Schleef <ds@schleef.org> | 2003-02-12 22:07:38 +0000 |
|---|---|---|
| committer | David Schleef <ds@schleef.org> | 2003-02-12 22:07:38 +0000 |
| commit | 7c7e861873a6768458cf36b695852d027673370e (patch) | |
| tree | 911b06297f1156e4432b3dac5b6d4c9728017341 /debian/fixlinks | |
| parent | 351a9751acfaaa9ce259f23d540f09b5e90165b7 (diff) | |
Update CVS to Debian 0.9.18-1 package
Diffstat (limited to 'debian/fixlinks')
| -rwxr-xr-x | debian/fixlinks | 11 |
1 files changed, 6 insertions, 5 deletions
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); |