aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'sci-biology/gbrowse/files/GBrowseInstall.pm.patch')
-rw-r--r--sci-biology/gbrowse/files/GBrowseInstall.pm.patch63
1 files changed, 61 insertions, 2 deletions
diff --git a/sci-biology/gbrowse/files/GBrowseInstall.pm.patch b/sci-biology/gbrowse/files/GBrowseInstall.pm.patch
index e6163a732..863930e58 100644
--- a/sci-biology/gbrowse/files/GBrowseInstall.pm.patch
+++ b/sci-biology/gbrowse/files/GBrowseInstall.pm.patch
@@ -1,5 +1,5 @@
---- GBrowse-2.03/install_util/GBrowseInstall.pm.ori 2010-11-27 12:01:58.000000000 +0100
-+++ GBrowse-2.03/install_util/GBrowseInstall.pm 2010-11-27 12:02:15.000000000 +0100
+--- GBrowse-2.26/install_util/GBrowseInstall.pm.ori 2010-11-27 12:01:58.000000000 +0100
++++ GBrowse-2.26/install_util/GBrowseInstall.pm 2010-11-27 12:02:15.000000000 +0100
@@ -436,8 +436,8 @@
$self->ownership_warning($databases,$user);
}
@@ -11,3 +11,62 @@
my $base = basename($self->install_path->{htdocs});
+--- GBrowse-2.26/install_util/GBrowseInstall.pm.ori 2011-02-14 13:39:46.000000000 +0100
++++ GBrowse-2.26/install_util/GBrowseInstall.pm 2011-02-14 13:41:50.000000000 +0100
+@@ -438,25 +438,25 @@
+ $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;
+- {
+- local $> = $uid;
+- symlink($images,$htdocs_i); # so symlinkifowner match works!
+- }
+- chown $>,-1,$self->install_path->{htdocs};
++# chown $uid,-1,$htdocs;
++# {
++# local $> = $uid;
++# symlink($images,$htdocs_i); # so symlinkifowner match works!
++# }
++# chown $>,-1,$self->install_path->{htdocs};
+
+ 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;
+--- GBrowse-2.26/install_util/GBrowseInstall.pm.ori 2011-02-14 13:50:41.000000000 +0100
++++ GBrowse-2.26/install_util/GBrowseInstall.pm 2011-02-14 13:51:46.000000000 +0100
+@@ -470,11 +470,11 @@
+ my @inc = map{"-I$_"} split ':',$self->added_to_INC;
+ system $perl,@inc,$metadb_script;
+
+- 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";