From da2fa96bb276cce53f475abc5a30852260c9e0e6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 27 Sep 2007 14:41:11 +0000
Subject: (load_from_uri) we don't handle #foobar like anchors, so strip them
 out of links in order to prevent segfaulting

---
 perl-install/interactive/gtk.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 4b2bc2a56..5b078b0af 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -702,6 +702,7 @@ my $help_path = "/usr/share/doc/installer-help";
 
 sub load_from_uri {
     my ($document, $url) = @_;
+    $url =~ s/#.*$//; # prevent segfaults on anchors
     $url = get_html_file($::o, $url);
     my $str = scalar(cat_($url));
     c::set_tagged_utf8($str);
-- 
cgit v1.2.1