summaryrefslogtreecommitdiff
path: root/www/firefox-devel/files/patch-config_preprocess.pl
diff options
context:
space:
mode:
Diffstat (limited to 'www/firefox-devel/files/patch-config_preprocess.pl')
-rw-r--r--www/firefox-devel/files/patch-config_preprocess.pl55
1 files changed, 0 insertions, 55 deletions
diff --git a/www/firefox-devel/files/patch-config_preprocess.pl b/www/firefox-devel/files/patch-config_preprocess.pl
deleted file mode 100644
index 0ae1465f6e3c..000000000000
--- a/www/firefox-devel/files/patch-config_preprocess.pl
+++ /dev/null
@@ -1,55 +0,0 @@
---- config/preprocessor.pl.orig Wed Jun 18 17:40:48 2003
-+++ config/preprocessor.pl Wed Jun 18 18:55:28 2003
-@@ -71,15 +71,39 @@
- ########################################################################
-
- package main;
--use File::Spec 0.8;
-+use File::Spec;
- use File::Spec::Unix; # on all platforms, because the #include syntax is unix-based
-+use File::Basename;
-+use Cwd;
-+
-+# This code is taken from File::Spec::Unix 0.8.
-+sub rel2abs {
-+ my ($path, $base) = @_;
-+
-+ if ( ! File::Spec->file_name_is_absolute( $path ) ) {
-+ if ( !defined( $base ) || $base eq '' ) {
-+ $base = cwd() ;
-+ }
-+ elsif ( ! File::Spec->file_name_is_absolute( $base ) ) {
-+ $base = rel2abs( $base );
-+ }
-+ else {
-+ $base = File::Spec->canonpath( $base );
-+ }
-+
-+ $path = File::Spec->catdir( $base, $path );
-+ }
-+
-+ return File::Spec->canonpath( $path );
-+}
-+# End code from File::Spec::Unix
-
- sub include {
- my($stack, $filename) = @_;
- if ($filename ne '-') {
-- $filename = File::Spec->rel2abs($filename, $stack->{'variables'}->{'DIRECTORY'});
-- my($volume, $directory) = File::Spec->splitpath($filename);
-- local $stack->{'variables'}->{'DIRECTORY'} = File::Spec->catpath($volume, $directory, '');
-+ $filename = rel2abs($filename, $stack->{'variables'}->{'DIRECTORY'});
-+ my ($directory) = dirname($filename);
-+ local $stack->{'variables'}->{'DIRECTORY'} = File::Spec->catdir($directory);
- }
- local $stack->{'variables'}->{'FILE'} = $filename;
- local $stack->{'variables'}->{'LINE'} = 0;
-@@ -372,7 +396,7 @@
- my $stack = shift;
- return if $stack->disabled;
- die "argument expected\n" unless @_;
-- main::include($stack, File::Spec->catpath(File::Spec::Unix->splitpath(@_)));
-+ main::include($stack, File::Spec->catfile(dirname(@_), basename(@_)));
- }
-
- sub filter {