(List
  (FunctionDef gitweb_init []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('safe_pwd', {[DQ [ComSub (Com {[LIT_CHARS perl]} {[LIT_CHARS -MPOSIX] [LIT_DBRACKET_LIKE "="] [LIT_CHARS getcwd]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "print quotemeta(getcwd)">]})]]})])
      (Com {[LIT_CHARS cat]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS gitweb_config.perl]} <REDIR_GREAT ">"> 1),
        (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "#!/usr/bin/perl\n"][LIT_CHARS "\n"][LIT_CHARS "# gitweb configuration for tests\n"][LIT_CHARS "\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "version = 'current';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "GIT = 'git';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "projectroot = "][RIGHT_D_QUOTE "\""][VarSub safe_pwd][RIGHT_D_QUOTE "\""][LIT_CHARS ";\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "project_maxdepth = 8;\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "home_link_str = 'projects';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "site_name = '[localhost]';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "site_html_head_string = '';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "site_header = '';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "site_footer = '';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "home_text = 'indextext.html';\n"][LIT_CHARS "our @stylesheets = ('file:///"][VarSub GIT_BUILD_DIR][LIT_CHARS "/gitweb/static/gitweb.css');\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "logo = 'file:///"][VarSub GIT_BUILD_DIR][LIT_CHARS "/gitweb/static/git-logo.png';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "favicon = 'file:///"][VarSub GIT_BUILD_DIR][LIT_CHARS "/gitweb/static/git-favicon.png';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "projects_list = '';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "export_ok = '';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "strict_export = '';\n"][LIT_CHARS "our "][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS "maxload = undef;\n"][LIT_CHARS "\n"]]} <REDIR_DLESS "<<"> 0),
        >
      )
      (Com {[LIT_CHARS cat]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS .git/description]} <REDIR_GREAT ">"> 1),
        (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [VarSub 0][LIT_CHARS " test repository\n"]]} <REDIR_DLESS "<<"> 0),
        >
      )
      (If
        (Com {[LIT_CHARS test]} {[LIT_CHARS -n]} {[DQ [VarSub GITWEB_TEST_INSTALLED]]}        )
        (List
          (If
            (Com {[LIT_CHARS test]} {[LIT_CHARS -d]} {[VarSub GITWEB_TEST_INSTALLED]}            )
            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('SCRIPT_NAME', {[DQ [VarSub GITWEB_TEST_INSTALLED][LIT_CHARS /gitweb.cgi]]})])
            (ElseTrue)
            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('SCRIPT_NAME', {[DQ [VarSub GITWEB_TEST_INSTALLED]]})])
          )
          (AndOr OP_OR_IF
            (Com {[LIT_CHARS test]} {[LIT_CHARS -f]} {[DQ [VarSub SCRIPT_NAME]]}            )
            (Com {[LIT_CHARS error]} {[DQ [LIT_CHARS "Cannot find gitweb at "][VarSub GITWEB_TEST_INSTALLED][LIT_CHARS .]]}            )
          )
          (Com {[LIT_CHARS say]} {[DQ [LIT_CHARS "# Testing "][VarSub SCRIPT_NAME]]}          )
        )
        (ElseTrue)
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('SCRIPT_NAME', {[DQ [VarSub GIT_BUILD_DIR][LIT_CHARS /gitweb/gitweb.perl]]})])
      )
      (= scope=<EAssignScope.GLOBAL 1> flags=1 words=[{[LIT_CHARS SCRIPT_NAME]}] bindings=[])
    )
  )
  (FunctionDef gitweb_run []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('GATEWAY_INTERFACE', {[SQ <LIT_CHARS CGI/1.1>]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('HTTP_ACCEPT', {[SQ <LIT_CHARS "*/*">]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('REQUEST_METHOD', {[SQ <LIT_CHARS GET>]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('QUERY_STRING', {[DQ ] [VarSub 1] [DQ ]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('PATH_INFO', {[DQ ] [VarSub 2] [DQ ]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=1 words=[{[LIT_CHARS GATEWAY_INTERFACE]}, {[LIT_CHARS HTTP_ACCEPT]}, {[LIT_CHARS REQUEST_METHOD]}, {[LIT_CHARS QUERY_STRING]}, {[LIT_CHARS PATH_INFO]}] bindings=[])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('GITWEB_CONFIG', {[ComSub (Com {[LIT_CHARS pwd]})] [LIT_CHARS /gitweb_config.perl]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=1 words=[{[LIT_CHARS GITWEB_CONFIG]}] bindings=[])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS rm]} {[LIT_CHARS -f]} {[LIT_CHARS gitweb.log]}        )
        (AndOr OP_AND_IF
          (Com {[DQ [VarSub PERL_PATH]]} {[LIT_CHARS --]} {[DQ [VarSub SCRIPT_NAME]]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS gitweb.output]} <REDIR_GREAT ">"> 1),
            (FilenameRedirectNode filename={[LIT_CHARS gitweb.log]} <REDIR_GREAT "2>"> 2),
            >
          )
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS perl]} {[LIT_CHARS -w]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\topen O, \">gitweb.headers\";\n"> <LIT_CHARS "\t\twhile (<>) {\n"> <LIT_CHARS "\t\t\tprint O;\n"> <LIT_CHARS "\t\t\tlast if (/^\\r$/ || /^$/);\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t\topen O, \">gitweb.body\";\n"> <LIT_CHARS "\t\twhile (<>) {\n"> <LIT_CHARS "\t\t\tprint O;\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t\tclose O;\n"> <LIT_CHARS "\t">]} {[LIT_CHARS gitweb.output]}            )
            (If
              (Com {[LIT_CHARS grep]} {[SQ <LIT_CHARS "^[[]">]} {[LIT_CHARS gitweb.log]}
                <
                (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
                (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
                >
              )
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS test_debug]} {[SQ <LIT_CHARS "cat gitweb.log >&2">]}                )
                (Com {[LIT_CHARS false]}                )
              )
              (ElseTrue)
              (Com {[LIT_CHARS true]}              )
            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (If
    (Pipeline!
      (Com {[LIT_CHARS test_have_prereq]} {[LIT_CHARS PERL]}      )
    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[SQ <LIT_CHARS "skipping gitweb tests, perl not available">]})])
      (Com {[LIT_CHARS test_done]}      )
    )
  )
  (AndOr OP_OR_IF
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -MEncode]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "$e=\"\";decode_utf8($e, Encode::FB_CROAK)">]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
      (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
      >
    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[SQ <LIT_CHARS "skipping gitweb tests, perl version is too old">]})])
      (Com {[LIT_CHARS test_done]}      )
    )
  )
  (AndOr OP_OR_IF
    (Com {[LIT_CHARS perl]} {[LIT_CHARS -MCGI]} {[LIT_CHARS -MCGI] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS Util]} {[LIT_CHARS -MCGI] [LIT_OTHER ":"] [LIT_OTHER ":"] [LIT_CHARS Carp]} {[LIT_CHARS -e]} {[LIT_CHARS 0]}
      <
      (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
      (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
      >
    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[SQ <LIT_CHARS "skipping gitweb tests, CGI module unusable">]})])
      (Com {[LIT_CHARS test_done]}      )
    )
  )
  (Com {[LIT_CHARS gitweb_init]}  )
)