sci-biology/GBrowse: treeclean

Closes: https://bugs.gentoo.org/828702
Closes: https://bugs.gentoo.org/690042
Closes: https://bugs.gentoo.org/513594
Closes: https://bugs.gentoo.org/402849
Signed-off-by: Jakov Smolić <jsmolic@gentoo.org>

1 files changed, 0 insertions, 72 deletions

diff --git a/sci-biology/GBrowse/files/GBrowseInstall.pm-2.39.patch b/sci-biology/GBrowse/files/GBrowseInstall.pm-2.39.patch
deleted file mode 100644
index 5aa0be9df918..000000000000
--- a/sci-biology/GBrowse/files/GBrowseInstall.pm-2.39.patch
+++ /dev/null
@@ -1,72 +0,0 @@
-diff -durr GBrowse-2.39-orig/install_util/GBrowseInstall.pm GBrowse-2.39/install_util/GBrowseInstall.pm
---- GBrowse-2.39-orig/install_util/GBrowseInstall.pm	2011-07-19 20:14:52.434608020 +0000
-+++ GBrowse-2.39/install_util/GBrowseInstall.pm	2011-07-19 21:02:13.685107753 +0000
-@@ -454,33 +454,33 @@
-     $gid =~ /^(\d+)$/;
-     $gid = $1;
-     
--    unless (chown $uid,$gid,$tmp) {
--	$self->ownership_warning($tmp,$user);
--    }
-+#    unless (chown $uid,$gid,$tmp) {
-+#	$self->ownership_warning($tmp,$user);
-+#    }
- 
-     my $htdocs_i = File::Spec->catfile($self->install_path->{htdocs},'i');
-     my $images   = File::Spec->catfile($tmp,'images');
-     my $htdocs = $self->install_path->{htdocs};
--    chown $uid,-1,$htdocs;
-+#    chown $uid,-1,$htdocs;
-     {
- 	local $> = $uid;
--	symlink($images,$htdocs_i);  # so symlinkifowner match works!
-+#	symlink($images,$htdocs_i);  # so symlinkifowner match works!
-     }
--    chown $>,-1,$self->install_path->{htdocs};
-+#    chown $>,-1,$self->install_path->{htdocs};
- 
-     my $persistent = $self->install_path->{'persistent'};
-     my $sessions   = File::Spec->catfile($persistent,'sessions');
-     my $userdata   = File::Spec->catfile($persistent,'userdata');
--    mkpath([$sessions,$userdata],0711);
-+#    mkpath([$sessions,$userdata],0711);
- 
-     my $databases = $self->install_path->{'databases'};
-     
--    unless (chown $uid,$gid,glob(File::Spec->catfile($databases,'').'*')) {
--	$self->ownership_warning($databases,$user);
--    }
-+#    unless (chown $uid,$gid,glob(File::Spec->catfile($databases,'').'*')) {
-+#	$self->ownership_warning($databases,$user);
-+#    }
- 
--    chmod 0755,File::Spec->catfile($self->install_path->{'etc'},'init.d','gbrowse-slave');
--    $self->fix_selinux;
-+    # chmod 0755,File::Spec->catfile($self->install_path->{'etc'},'init.d','gbrowse-slave');
-+    # $self->fix_selinux;
- 
-     my $base = basename($self->install_path->{htdocs});
- 
-@@ -489,14 +489,14 @@
-     my $metadb_script = File::Spec->catfile("bin", "gbrowse_metadb_config.pl");
-     my $perl          = $self->perl;
-     my @inc           = map{"-I$_"} split ':',$self->added_to_INC;
--    system $perl,@inc,$metadb_script;
--    system 'sudo','chown','-R',"$uid.$gid",$sessions,$userdata;
-+#    system $perl,@inc,$metadb_script;
-+#    system 'sudo','chown','-R',"$uid.$gid",$sessions,$userdata;
- 
--    if (Module::Build->y_n(
--	    "It is recommended that you restart Apache. Shall I try this for you?",'y'
--	)) {
--	system "sudo /etc/init.d/apache2 restart";
--    }
-+#    if (Module::Build->y_n(
-+#	    "It is recommended that you restart Apache. Shall I try this for you?",'y'
-+#	)) {
-+#	system "sudo /etc/init.d/apache2 restart";
-+#    }
-     
-     print STDERR "\n***INSTALLATION COMPLETE***\n";
-     print STDERR "Load http://localhost/$base for demo and documentation.\n";
-Only in GBrowse-2.39/install_util: GBrowseInstall.pm~