The Tor Browser / file comparison
comparison: build/unix/abs2rel.pl
build/unix/abs2rel.pl
- branch
- TOR_BUG_9701
- changeset 15
- b8a032363ba2
equal
deleted
inserted
replaced
| -1:000000000000 | 0:40b414dbb1b7 |
|---|---|
| 1 #!env perl | |
| 2 | |
| 3 # This Source Code Form is subject to the terms of the Mozilla Public | |
| 4 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 5 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
| 6 | |
| 7 use File::Spec::Unix; | |
| 8 use strict; | |
| 9 | |
| 10 print "Usage: $0 dest_path start_path\n" if ($#ARGV+1 != 2); | |
| 11 my $finish = my_canonpath(shift); | |
| 12 my $start = my_canonpath(shift); | |
| 13 | |
| 14 my $res = File::Spec::Unix->abs2rel($finish, $start); | |
| 15 | |
| 16 #print STDERR "abs2rel($finish,$start) = $res\n"; | |
| 17 print "$res\n"; | |
| 18 | |
| 19 sub my_canonpath($) { | |
| 20 my ($file) = @_; | |
| 21 my (@inlist, @outlist, $dir); | |
| 22 | |
| 23 # Do what File::Spec::Unix->no_upwards should do | |
| 24 my @inlist = split(/\//, File::Spec::Unix->canonpath($file)); | |
| 25 foreach $dir (@inlist) { | |
| 26 if ($dir eq '..') { | |
| 27 pop @outlist; | |
| 28 } else { | |
| 29 push @outlist, $dir; | |
| 30 } | |
| 31 } | |
| 32 $file = join '/',@outlist; | |
| 33 return $file; | |
| 34 } | |
| 35 |
