Force a / on the end of base

davorg · davorg · commit 8bf107e19d23 · 2021-05-07T08:00:07.000+01:00
diff --git a/bin/mksite b/bin/mksite
@@ -12,6 +12,7 @@ use App::CPANModuleSite;
 my $args = { distribution => $ARGV[0] };
 if (@ARGV > 1) {
   $args->{base} = $ARGV[1];
+  $args->{base} .= '/' if $args->{base} !~ m|/$|;
 }
 
 my $app = App::CPANModuleSite->new($args);
diff --git a/docs/index.html b/docs/index.html
@@ -2,7 +2,7 @@
 <!doctype html>
 <html lang="en">
   <head>
-    <base href="/app-cpanmodulesite">
+    <base href="/app-cpanmodulesite/">
     <!-- Required meta tags -->
     <meta charset="utf-8">
     <meta name="viewport" content="width=device-width, initial-scale=1">
diff --git a/docs/lib/App/CPANModuleSite.html b/docs/lib/App/CPANModuleSite.html
@@ -2,7 +2,7 @@
 <!doctype html>
 <html lang="en">
   <head>
-    <base href="/app-cpanmodulesite">
+    <base href="/app-cpanmodulesite/">
     <!-- Required meta tags -->
     <meta charset="utf-8">
     <meta name="viewport" content="width=device-width, initial-scale=1">

Original file line number	Diff line number	Diff line change
`@@ -12,6 +12,7 @@ use App::CPANModuleSite;`
`12`	`12`	`my $args = { distribution => $ARGV[0] };`
`13`	`13`	`if (@ARGV > 1) {`
`14`	`14`	`$args->{base} = $ARGV[1];`
	`15`	`+ $args->{base} .= '/' if $args->{base} !~ m\|/$\|;`
`15`	`16`	`}`
`16`	`17`
`17`	`18`	`my $app = App::CPANModuleSite->new($args);`