<p>Off topic but... Interesting choice of delimiters...<br>
</p>
<div class="gmail_quote">On Feb 17, 2011 2:42 PM, &quot;Matthew Bustad&quot; &lt;<a href="mailto:mybustad@gmail.com">mybustad@gmail.com</a>&gt; wrote:<br type="attribution">&gt; Here is a puzzle:<br>&gt; <br>&gt; Setting up gitweb on CentOS 5.5<br>
&gt; <br>&gt; In the script segment:<br>&gt; ---8&lt;---Start---8&lt;------8&lt;------8&lt;------8&lt;------8&lt;------8&lt;------8&lt;------8&lt;---<br>&gt; #!/usr/bin/perl<br>&gt; <br>&gt; # gitweb - simple web interface to track changes in git repositories<br>
&gt; #<br>&gt; # (C) 2005-2006, Kay Sievers &lt;<a href="mailto:kay.sievers@vrfy.org">kay.sievers@vrfy.org</a>&gt;<br>&gt; # (C) 2005, Christian Gierke<br>&gt; #<br>&gt; # This program is licensed under the GPLv2<br>&gt; <br>
&gt; open(O, &quot;&gt;&gt;/tmp/fo&quot;);<br>&gt; <br>&gt; use 5.008;<br>&gt; use strict;<br>&gt; use warnings;<br>&gt; use CGI qw(:standard :escapeHTML -nosticky);<br>&gt; use CGI::Util qw(unescape);<br>&gt; use CGI::Carp qw(fatalsToBrowser set_message);<br>
&gt; use Encode;<br>&gt; use Fcntl &#39;:mode&#39;;<br>&gt; use File::Find qw();<br>&gt; use File::Basename qw(basename);<br>&gt; use Time::HiRes qw(gettimeofday tv_interval);<br>&gt; binmode STDOUT, &#39;:utf8&#39;;<br>&gt; <br>
&gt; .<br>&gt; .<br>&gt; .<br>&gt; my $projects_list = &quot;/pub/git&quot;;<br>&gt;      printf(O &quot;--\n%s-\n&quot;, $projects_list ); # debug printfs to<br>&gt; isolate the error<br>&gt;         if (-d $projects_list) {<br>
&gt;      printf(O &quot;--\n%s-\n&quot;, $projects_list ); # debug printfs to<br>&gt; isolate the error<br>&gt; ---8&lt;--- End ---8&lt;------8&lt;------8&lt;------8&lt;------8&lt;------8&lt;------8&lt;------8&lt;---<br>
&gt; <br>&gt; The -d test of if /pub/git is a directory (it is) fails via cgi, but<br>&gt; (as user apache)<br>&gt; works via command line?<br>&gt; <br>&gt; Any ideas?<br>&gt; <br>&gt; -- Matthew<br>&gt; _____________________________________________________________<br>
&gt; Seattle Perl Users Group Mailing List<br>&gt;      POST TO: <a href="mailto:spug-list@pm.org">spug-list@pm.org</a><br>&gt; SUBSCRIPTION: <a href="http://mail.pm.org/mailman/listinfo/spug-list">http://mail.pm.org/mailman/listinfo/spug-list</a><br>
&gt;     MEETINGS: 3rd Tuesdays<br>&gt;     WEB PAGE: <a href="http://seattleperl.org/">http://seattleperl.org/</a><br></div>