X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;ds=inline;f=clearadm%2Freadme.cgi;h=ce994af64d0802fdb9cc0e564661280db1851aec;hb=872647ca498f25c7de2a0e92f19403b71d957e1a;hp=de4a05d6d8eacc3bf1de27217036e9084c9f4b52;hpb=81cbd130706633b1c19ff59371c2ef61d80c562b;p=clearscm.git diff --git a/clearadm/readme.cgi b/clearadm/readme.cgi index de4a05d..ce994af 100755 --- a/clearadm/readme.cgi +++ b/clearadm/readme.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl =pod @@ -40,7 +40,7 @@ use warnings; use FindBin; use Getopt::Long; -use CGI qw (:standard *table start_Tr end_Tr); +use CGI qw(:standard *table start_Tr end_Tr); use CGI::Carp 'fatalsToBrowser'; use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib"; @@ -50,7 +50,7 @@ use Display; use Utils; # Main -GetOptions ( +GetOptions( 'usage' => sub { Usage }, 'verbose' => sub { set_verbose }, 'debug' => sub { set_debug }, @@ -65,8 +65,7 @@ display '
'; @@ -123,4 +122,4 @@ Please report problems to Andrew DeFaria'; display h1 {class => 'center'}, "$ClearadmWeb::APPNAME: README"; -display $_ - foreach (ReadFile 'README'); +display $_ foreach (ReadFile 'README'); display '