openwrt/scripts/abs2rel.pl

#!/usr/bin/env perl
# 
# Copyright (C) 2007 OpenWrt.org
#
# This is free software, licensed under the GNU General Public License v2.
# See /LICENSE for more information.
#

use strict;
require File::Spec;

my $source = shift @ARGV;
my $target = shift @ARGV;
my $result = File::Spec->abs2rel($source, $target);

print "$result\n";
use #!/usr/bin/env perl instead of #!/usr/bin/perl in openwrt scripts (fixes #2998) SVN-Revision: 12674 2008-09-23 18:29:44 +00:00			`#!/usr/bin/env perl`
add an abs2rel.pl helper script (returns a path relative to another) SVN-Revision: 8570 2007-09-01 15:20:33 +00:00			`#`
			`# Copyright (C) 2007 OpenWrt.org`
			`#`
			`# This is free software, licensed under the GNU General Public License v2.`
			`# See /LICENSE for more information.`
			`#`

			`use strict;`
			`require File::Spec;`

			`my $source = shift @ARGV;`
			`my $target = shift @ARGV;`
			`my $result = File::Spec->abs2rel($source, $target);`

			`print "$result\n";`