(CommandList children: [ (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:pkgname) op:Equal rhs:{(perl)} spids:[9])] spids: [9] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:pkgver) op:Equal rhs:{(5.26.1)} spids:[12])] spids: [12] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:pkgrel) op:Equal rhs:{(1)} spids:[15])] spids: [15] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:pkgdesc) op: Equal rhs: {(DQ ("Larry Wall's Practical Extraction and Report Language"))} spids: [18] ) ] spids: [18] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:url) op: Equal rhs: {(DQ ("http://www.perl.org/"))} spids: [23] ) ] spids: [23] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:arch) op:Equal rhs:{(DQ (all))} spids:[28])] spids: [28] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:license) op: Equal rhs: {(DQ ("Artistic GPL2"))} spids: [33] ) ] spids: [33] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:options) op:Equal rhs:{(DQ ("!fhs"))} spids:[38])] spids: [38] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:depends) op:Equal rhs:{(DQ )} spids:[43])] spids: [43] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:depends_dev) op: Equal rhs: {(DQ (perl-utils))} spids: [47] ) ] spids: [47] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:makedepends) op: Equal rhs: {(DQ ("bzip2-dev zlib-dev"))} spids: [52] ) ] spids: [52] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:subpackages) op: Equal rhs: { (DQ ($ VSub_Name "$pkgname") ("-doc ") ($ VSub_Name "$pkgname") ("-dev ") ($ VSub_Name "$pkgname") ("-utils::noarch miniperl") ) } spids: [57] ) ] spids: [57] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:source) op: Equal rhs: {(DQ ("http://www.cpan.org/src/5.0/perl-") ($ VSub_Name "$pkgver") (".tar.gz\n") ("\t"))} spids: [67] ) ] spids: [67] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:builddir) op: Equal rhs: {(DQ ($ VSub_Name "$srcdir") (/) ($ VSub_Name "$pkgname") (-) ($ VSub_Name "$pkgver"))} spids: [89] ) ] spids: [89] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:_privlib) op: Equal rhs: {(/usr/share/perl5/core_perl)} spids: [99] ) ] spids: [99] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:_archlib) op: Equal rhs: {(/usr/lib/perl5/core_perl)} spids: [102] ) ] spids: [102] ) (FuncDef name: prepare body: (BraceGroup children: [ (C {(chmod)} {(Lit_Other "+") (w)} {(DQ ($ VSub_Name "$builddir")) (/) (Lit_Other "*") (.c)}) (AndOr children: [ (C {(default_prepare)}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] op_id: Op_DPipe ) (C {(cd)} {(DQ ($ VSub_Name "$builddir"))}) (AndOr children: [ (C {(sed)} {(-e)} {(SQ <"s/less -R/less/g">)} {(-e)} {(SQ <"s/libswanted=\"\\(.*\\) nsl\\(.*\\)\"/libswanted=\"\\1\\2\"/g">)} {(-i)} {(./Configure)} ) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] op_id: Op_DPipe ) (C {(rm)} {(-rf)} {(cpan/Compress-Raw-Zlib/zlib-src)}) (C {(rm)} {(-rf)} {(cpan/Compress-Raw-Bzip2/bzip2-src)}) (C {(sed)} {(-i)} {(SQ <"/\\(bzip2\\|zlib\\)-src/d">)} {(MANIFEST)}) ] spids: [110] ) spids: [106 109] ) (FuncDef name: build body: (BraceGroup children: [ (C {(cd)} {(DQ ($ VSub_Name "$builddir"))}) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:BUILD_ZLIB) op:Equal rhs:{(0)} spids:[218])] spids: [218] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:BUILD_BZIP2) op:Equal rhs:{(0)} spids:[222])] spids: [222] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:BZIP2_LIB) op: Equal rhs: {(/usr/lib)} spids: [226] ) ] spids: [226] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:BZIP2_INCLUDE) op: Equal rhs: {(/usr/inculde)} spids: [230] ) ] spids: [230] ) (C {(export)} {(BUILD_ZLIB)} {(BUILD_BZIP2)} {(BZIP2_LIB)} {(BZIP2_INCLUDE)}) (AndOr children: [ (C {(./Configure)} {(-des)} {(-Dcccdlflags) (Lit_Other "=") (SQ <-fPIC>)} {(-Dcccdlflags) (Lit_Other "=") (SQ <-fPIC>)} {(-Dccdlflags) (Lit_Other "=") (SQ <-rdynamic>)} {(-Dprefix) (Lit_Other "=") (/usr)} {(-Dprivlib) (Lit_Other "=") ($ VSub_Name "$_privlib")} {(-Darchlib) (Lit_Other "=") ($ VSub_Name "$_archlib")} {(-Dvendorprefix) (Lit_Other "=") (/usr)} {(-Dvendorlib) (Lit_Other "=") (/usr/share/perl5/vendor_perl)} {(-Dvendorarch) (Lit_Other "=") (/usr/lib/perl5/vendor_perl)} {(-Dsiteprefix) (Lit_Other "=") (/usr/local)} {(-Dsitelib) (Lit_Other "=") (/usr/local/share/perl5/site_perl)} {(-Dsitearch) (Lit_Other "=") (/usr/local/lib/perl5/site_perl)} {(-Dlocincpth) (Lit_Other "=") (SQ <" ">)} {(-Doptimize) (Lit_Other "=") (DQ ($ VSub_Name "$CFLAGS"))} {(-Duselargefiles)} {(-Dusethreads)} {(-Duseshrplib)} {(-Dd_semctl_semun)} {(-Dman1dir) (Lit_Other "=") (/usr/share/man/man1)} {(-Dman3dir) (Lit_Other "=") (/usr/share/man/man3)} {(-Dinstallman1dir) (Lit_Other "=") (/usr/share/man/man1)} {(-Dinstallman3dir) (Lit_Other "=") (/usr/share/man/man3)} {(-Dman1ext) (Lit_Other "=") (SQ <1>)} {(-Dman3ext) (Lit_Other "=") (SQ <3pm>)} {(-Dcf_by) (Lit_Other "=") (SQ <Alpine>)} {(-Ud_csh)} {(-Dusenm)} ) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] op_id: Op_DPipe ) (AndOr children: [ (C {(make)} {(libperl.so)}) (AndOr children: [(C {(make)}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})] op_id: Op_DPipe ) ] op_id: Op_DAmp ) ] spids: [208] ) spids: [204 207] ) (FuncDef name: package body: (BraceGroup children: [ (C {(cd)} {(DQ ($ VSub_Name "$builddir"))}) (C {(make)} {(Lit_VarLike "DESTDIR=") (DQ ($ VSub_Name "$pkgdir"))} {(install)}) (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other "[")} {(-n)} { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(find)} {($ VSub_Name "$pkgdir") (/usr/local)} {(-type)} {(f)}) ] ) left_token: <Left_CommandSub "$("> spids: [473 482] ) ) } {(Lit_Other "]")} ) terminator: <Op_Semi ";"> ) ] action: [ (C {(error)} {(DQ ("files found under /usr/local"))}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [-1 488] ) ] spids: [-1 503] ) (C {(find)} {(DQ ($ VSub_Name "$pkgdir"))} {(-name)} {(SQ <".*">)} {(-delete)}) ] spids: [446] ) spids: [442 445] ) (FuncDef name: miniperl body: (BraceGroup children: [ (AndOr children: [ (C {(install)} {(-Dm755)} {(DQ ($ VSub_Name "$builddir")) (/) ($ VSub_Name "$subpkgname")} {(DQ ($ VSub_Name "$subpkgdir")) (/usr/bin/) ($ VSub_Name "$subpkgname")} ) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] op_id: Op_DPipe ) ] spids: [527] ) spids: [523 526] ) (FuncDef name: doc body: (BraceGroup children: [ (C {(default_doc)}) (Sentence child: (Assignment keyword: Assign_Local pairs: [(assign_pair lhs:(LhsName name:file) op:Equal spids:[569])] spids: [567] ) terminator: <Op_Semi ";"> ) (ForEach iter_name: file iter_words: [ { (CommandSubPart command_list: (CommandList children: [ (C {(find)} {(DQ ($ VSub_Name "$pkgdir"))} {(-name)} {(DQ ("*.pod"))}) ] ) left_token: <Left_CommandSub "$("> spids: [578 590] ) } ] do_arg_iter: False body: (DoGroup children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:file) op: Equal rhs: { (BracedVarSub token: <VSub_Name file> suffix_op: (StringUnary op_id: VOp1_Pound arg_word: {($ VSub_Name "$pkgdir") (Lit_Slash /)} ) spids: [597 602] ) } spids: [596] ) ] spids: [596] ) (AndOr children: [ (C {(mkdir)} {(-p)} {(DQ ($ VSub_Name "$subpkgdir")) (/) (BracedVarSub token: <VSub_Name file> suffix_op: (StringUnary op_id: VOp1_Percent arg_word: {(Lit_Slash /) ("*")} ) spids: [613 618] ) } ) (ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] op_id: Op_DPipe ) (AndOr children: [ (C {(mv)} {(DQ ($ VSub_Name "$pkgdir")) (/) ($ VSub_Name "$file")} {(DQ ($ VSub_Name "$subpkgdir")) (/) ($ VSub_Name "$file")} ) (ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] op_id: Op_DPipe ) ] spids: [593 648] ) spids: [577 591] ) ] spids: [561] ) spids: [557 560] ) (FuncDef name: dev body: (BraceGroup children: [ (C {(mkdir)} {(-p)} {(DQ ($ VSub_Name "$subpkgdir")) (/usr/bin)} {(DQ ($ VSub_Name "$subpkgdir")) (/) ($ VSub_Name "$_archlib")} {(DQ ($ VSub_Name "$subpkgdir")) (/) ($ VSub_Name "$_privlib")} ) (C {(mv)} {(DQ ($ VSub_Name "$pkgdir")) (/) ($ VSub_Name "$_archlib") (/Devel)} {(DQ ($ VSub_Name "$subpkgdir")) (/) ($ VSub_Name "$_archlib") (/)} ) (C {(mv)} {(DQ ($ VSub_Name "$pkgdir")) (/) ($ VSub_Name "$_privlib") (/Encode)} {(DQ ($ VSub_Name "$subpkgdir")) (/) ($ VSub_Name "$_privlib") (/)} ) (C {(mv)} {(DQ ($ VSub_Name "$pkgdir")) (/usr/bin/h2xs)} {(DQ ($ VSub_Name "$pkgdir")) (/usr/bin/perlivp)} {(DQ ($ VSub_Name "$pkgdir")) (/usr/bin/enc2xs)} {(DQ ($ VSub_Name "$pkgdir")) (/usr/bin/xsubpp)} {(DQ ($ VSub_Name "$subpkgdir")) (/usr/bin/)} ) (C {(default_dev)}) ] spids: [657] ) spids: [653 656] ) (FuncDef name: utils body: (BraceGroup children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:pkgdesc) op: Equal rhs: {(DQ ($ VSub_Name "$pkgdesc") (" (misc utilities)"))} spids: [766] ) ] spids: [766] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:depends) op: Equal rhs: {(DQ ($ VSub_Name "$pkgname"))} spids: [773] ) ] spids: [773] ) (C {(mkdir)} {(-p)} {(DQ ($ VSub_Name "$subpkgdir")) (/usr/bin)}) (Assignment keyword: Assign_Local pairs: [(assign_pair lhs:(LhsName name:file) op:Equal spids:[791])] spids: [789] ) (ForEach iter_name: file iter_words: [ {(corelist)} {(cpan)} {(encguess)} {(libnetcfg)} {(h2ph)} {(instmodsh)} {(json_pp)} {(perlbug)} {(perlthanks)} {(piconv)} {(pl2pm)} {(prove)} {(ptar)} {(ptardiff)} {(ptargrep)} {(shasum)} {(splain)} {(zipdetails)} ] do_arg_iter: False body: (DoGroup children: [ (AndOr children: [ (C {(mv)} {(DQ ($ VSub_Name "$pkgdir")) (/usr/bin/) ($ VSub_Name "$file")} {(DQ ($ VSub_Name "$subpkgdir")) (/usr/bin/)} ) (ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] op_id: Op_DPipe ) ] spids: [873 896] ) spids: [799 -1] ) ] spids: [763] ) spids: [759 762] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:sha512sums) op: Equal rhs: { (DQ ( "098a08f1dd0dbc065cc2d93752a5b320e63d665a80392f7c4d83e807f05762d34c70c99d80bc8085512f5653f9a4b54edb5a8973aba240d41c211ebbd630209f perl-5.26.1.tar.gz" ) ) } spids: [901] ) ] spids: [901] ) ] )