clean-up
[tomato/davidwu.git] / toolchain / scripts / abs2rel.pl
blob979fe49419464a9f78bc96656465cce19aa03c07
1 #!/usr/bin/perl
2 #
3 # Copyright (C) 2007 OpenWrt.org
5 # This is free software, licensed under the GNU General Public License v2.
6 # See /LICENSE for more information.
8 # $Id: abs2rel.pl 8570 2007-09-01 15:20:33Z nico $
10 use strict;
11 require File::Spec;
13 my $source = shift @ARGV;
14 my $target = shift @ARGV;
15 my $result = File::Spec->abs2rel($source, $target);
17 print "$result\n";