[Slim-Checkins] r11027 - /trunk/tools/PluginBuilder/bin/create-slimserver-plugin

[dsully at svn.slimdevices.com]

Author: dsully
Date: Fri Dec 22 09:41:15 2006
New Revision: 11027

URL: http://svn.slimdevices.com?rev=11027&view=rev
Log:
Bug: N/A
Description: Tweak exclude list to give full packages for Slim:: and Plugins::

Modified:
    trunk/tools/PluginBuilder/bin/create-slimserver-plugin

Modified: trunk/tools/PluginBuilder/bin/create-slimserver-plugin
URL: http://svn.slimdevices.com/trunk/tools/PluginBuilder/bin/create-slimserver-plugin?rev=11027&r1=11026&r2=11027&view=diff
==============================================================================
--- trunk/tools/PluginBuilder/bin/create-slimserver-plugin (original)
+++ trunk/tools/PluginBuilder/bin/create-slimserver-plugin Fri Dec 22 09:41:15 2006
@@ -10,6 +10,7 @@
 use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
 use Data::UUID;
 use Getopt::Long;
+use File::Basename qw(dirname);
 use File::Spec::Functions qw(:ALL);
 use File::Find ();
 use File::Temp qw(tempfile tempdir);
@@ -73,9 +74,9 @@
 
 	my @coreModules = keys %{$Module::CoreList::version{$]}};
 	my @slimModules = ();
-	my @slimDirs    = map { catdir($baseDir, $_) } qw(Slim Plugins lib CPAN);
-
-	for my $incDir (@slimDirs) {
+	my @slimDirs    = qw(Slim Plugins lib CPAN);
+
+	for my $incDir (map { catdir($baseDir, $_)} @slimDirs) {
 
 		File::Find::find({
 			wanted => sub {
@@ -84,7 +85,14 @@
 
 				return unless -f $file and $file =~ /\.pm/i;
 
-				$file =~ s/^\Q$incDir\E(?:\\|\/)?//;
+				my $fileBase = $incDir;
+
+				if ($incDir =~ /\bSlim$/ || $incDir =~ /\bPlugins$/) {
+
+					$fileBase = dirname($incDir);
+				}
+
+				$file =~ s/^\Q$fileBase\E(?:\\|\/)?//;
 				$file =~ s/(?:\\|\/)/::/g;
 				$file =~ s/\.[^.]+$//;