peteyboy/Connex
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert modification to link lines #5

Merged
peteyboy merged 1 commits from rocket-no-space-bugfix into develop 2026-06-09 19:07:21 -04:00
Conversation 0 Commits 1 Files Changed 1 +3 -6
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
script/connex.pl
View File

@@ -471,16 +471,13 @@ sub is_path_index{
sub add_page_link{
my $linkline = shift;
my $base_url = shift;
#my $link=~ /^=>[ ]+([^ ]*)/
my $link = $linkline;
my $uri_object;
$link=~ s/^=> ([^ ]*)/$1/; #remember inside of braces, ^ means NOT, so any NOT SPACE letters are selected, so everything up to next space
#my $link=~ s/^=>[ ]*(.*$)/$1/r;
local $URI::ABS_ALLOW_RELATIVE_SCHEME = 1;
local $URI::ABS_REMOTE_LEADING_DOTS = 1;
if (defined($link)){ #has to be something here or I think URI->new_abs has exception that crashes app
$uri_object=URI->new_abs($link,$base_url);
#remember inside of braces, ^ means NOT, so any NOT SPACE letters are selected, so everything up to next space
if (defined($linkline=~ /^=> ([^ ]*)/)){ #has to be something here or I think URI->new_abs has exception that crashes app
$uri_object=URI->new_abs($linkline=~ /^=> ([^ ]*)/,$base_url);
push(@page_links, $uri_object->as_string);
my $count = scalar @page_links; #scalar is size/count of links, but $#page_links is highest INDEX
#return $linkline =~ s/(^=>.*$)/$1 [\>$count\]/r; don't need to escape on the replace part of a substitution, I guess?