1 files changed, 69 insertions, 0 deletions
diff --git a/media-sound/squeezecenter/files/squeezecenter-7.2.1-build-perl-modules-gentoo.patch b/media-sound/squeezecenter/files/squeezecenter-7.2.1-build-perl-modules-gentoo.patch
new file mode 100644
index 000000000000..0055b1a49fd8
--- /dev/null
+++ b/media-sound/squeezecenter/files/squeezecenter-7.2.1-build-perl-modules-gentoo.patch
@@ -0,0 +1,69 @@
+--- Bin/build-perl-modules.pl.old	2008-11-18 19:07:45.000000000 +0000
++++ Bin/build-perl-modules.pl	2008-11-18 19:42:04.000000000 +0000
+@@ -21,13 +21,11 @@
+ 
+ # NOTE: If you change this in a future version of SC, create a new
+ # versioned directory under vendor/src for all files for that version
+-my $SOURCE = 'http://svn.slimdevices.com/repos/slim/vendor/src/7.2';
+ my $dlext  = $Config{'dlext'};
+ 
+ # The list of all the packages needed.
+ my %packages = (
+ 	'Class::XSAccessor::Array' => 'Class-XSAccessor-Array-0.05.tar.gz',
+-	'Class::C3::XS'            => 'Class-C3-XS-0.08.tar.gz',
+ 	'Compress::Zlib'           => 'Compress-Zlib-1.41.tar.gz',
+ 	'DBI'                      => 'DBI-1.604.tar.gz',
+ 	'DBD::mysql'               => 'DBD-mysql-3.0002.tar.gz',
+@@ -197,36 +195,16 @@
+ 		}
+ 	}
+ 
++	# Utilise AutoXS::Header as we need that to support the following builds.
++	chdir($pwd) or die "Couldn't change to $pwd : $!";
++	# Include this when performing the following builds.
++	$ENV{'PERL5LIB'} = cwd() . "/AutoXS-Header-0.03/lib";
++
+ 	for my $package (@packages) {
+ 
+ 		chdir($pwd) or die "Couldn't change to $pwd : $!";
+ 
+-		print "\nDownloading $package to: $pwd\n";
+-
+-		# Remove any previous version.
+-		unlink $package;
+-
+-		if ($downloadUsing eq 'lwp') {
+-
+-			LWP::Simple::getstore("$SOURCE/$package?view=auto", $package);
+-
+-		} elsif ($downloadUsing =~ /curl$/) {
+-
+-			`$downloadUsing --silent -o $package $SOURCE/$package?view=auto`;
+-
+-		} else {
+-
+-			`$downloadUsing -q -O $package $SOURCE/$package?view=auto`;
+-		}
+-
+-		unless (-r $package) {
+-			print "Something looks wrong - I couldn't read $pwd/$package, which I just downloaded.\n";
+-		}
+-
+-		print "Uncompressing..\n";
+-		`gzip -d < $package | tar xvf -`;
+-
+-		unlink $package;
++		print "\nBuilding $package\n";
+ 
+ 		# Just the directory name.
+ 		my ($packageDir) = ($package =~ /(\S+?)\.tar\.gz/);
+--- Slim/bootstrap.pm.old	2008-11-22 15:14:07.000000000 +0000
++++ Slim/bootstrap.pm	2008-11-22 15:14:30.000000000 +0000
+@@ -176,7 +176,6 @@
+ 
+ 		print "The following modules failed to load: $failed\n\n";
+ 
+-		print "To download and compile them, please run: $libPath/Bin/build-perl-modules.pl $failed\n\n";
+ 		print "Exiting..\n";
+ 
+ 		exit;