From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 22 Oct 2009 20:04:45 +0000 (-0400)
Subject: path tweaks and shebang line
X-Git-Tag: v0.003~66
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FWeb-Simple.git;a=commitdiff_plain;h=89166c1bd15373ca7dd347e3802ec861e4ba27d2

path tweaks and shebang line
---

diff --git a/examples/bloggery/bloggery.cgi b/examples/bloggery/bloggery.cgi
index 047b3ed..2a05045 100755
--- a/examples/bloggery/bloggery.cgi
+++ b/examples/bloggery/bloggery.cgi
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 use FindBin;
 use lib $FindBin::Bin.'/code';
 use Web::Simple 'Bloggery';
@@ -144,7 +146,7 @@ sub main_html_for {
   } elsif ($data->isa('Bloggery::PostList')) {
     <ul>,
       $data->map(sub {
-        my $path = '/'.$_->name.'.html';
+        my $path = $_->name.'.html';
         <li>,
           <h4>, <a href="$path">, $_->title, </a>, </h4>,
           <span class="summary">, $_->summary_html, </span>,