(CommandList children: [ (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:pkgname) op:Equal rhs:{(perl-unicode-string)} spids:[9])] spids: [9] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:_pkgreal) op:Equal rhs:{(Unicode-String)} spids:[12])] spids: [12] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:pkgver) op:Equal rhs:{(2.09)} spids:[15])] spids: [15] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:pkgrel) op:Equal rhs:{(5)} spids:[18])] spids: [18] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:pkgdesc) op: Equal rhs: {(DQ ('String of Unicode characters for perl (UCS2/UTF16)'))} spids: [21] ) ] spids: [21] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:url) op: Equal rhs: {(DQ ('http://search.cpan.org/dist/Unicode-String/'))} spids: [26] ) ] spids: [26] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:arch) op:Equal rhs:{(DQ (all))} spids:[31])] spids: [31] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:license) op: Equal rhs: {(DQ ('GPL PerlArtistic'))} spids: [36] ) ] spids: [36] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:cpandepends) op:Equal rhs:{(DQ )} spids:[41])] spids: [41] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:cpanmakedepends) op:Equal rhs:{(DQ (' '))} spids:[45])] spids: [45] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:depends) op: Equal rhs: {(DQ ($ VSub_Name '$cpandepends'))} spids: [50] ) ] spids: [50] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:makedepends) op: Equal rhs: {(DQ ('perl-dev ') ($ VSub_Name '$cpanmakedepends'))} spids: [55] ) ] spids: [55] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:subpackages) op: Equal rhs: {(DQ ($ VSub_Name '$pkgname') (-doc))} spids: [61] ) ] spids: [61] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:source) op: Equal rhs: { (DQ ('http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/') ($ VSub_Name '$_pkgreal') (-) ($ VSub_Name '$pkgver') ('.tar.gz\n') ('\tperl-Unicode-String-2.09-undefined.patch\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 '$_pkgreal') (-) ($ VSub_Name '$pkgver'))} spids: [79] ) ] spids: [79] ) (FuncDef name: prepare body: (BraceGroup children: [ (C {(cd)} {(DQ ($ VSub_Name '$_builddir'))}) (ForEach iter_name: i iter_words: [{($ VSub_Name '$source')}] do_arg_iter: False body: (DoGroup children: [ (Case to_match: {($ VSub_Name '$i')} arms: [ (case_arm pat_list: [{(Lit_Other '*') (.patch)}] action: [ (Sentence child: (C {(msg)} {($ VSub_Name '$i')}) terminator: <Op_Semi ';'> ) (AndOr children: [ (C {(patch)} {(-p1)} {(-i)} {(DQ ($ VSub_Name '$srcdir')) (/) ($ VSub_Name '$i')} ) (ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] op_id: Op_DPipe ) ] spids: [122 124 148 -1] ) ] spids: [115 119 151] ) ] spids: [112 154] ) spids: [108 110] ) (C {(export)} {(Lit_VarLike 'CFLAGS=') (CommandSubPart command_list: (CommandList children: [(C {(perl)} {(-MConfig)} {(-E)} {(SQ <'say $Config{ccflags}'>)})] ) left_token: <Left_Backtick '`'> spids: [160 170] ) } ) (SimpleCommand words: [{(perl)} {(Makefile.PL)} {(Lit_VarLike 'INSTALLDIRS=') (vendor)}] more_env: [(env_pair name:PERL_MM_USE_DEFAULT val:{(1)} spids:[173])] ) ] spids: [93] ) spids: [89 92] ) (FuncDef name: build body: (BraceGroup children: [ (C {(cd)} {(DQ ($ VSub_Name '$_builddir'))}) (C {(export)} {(Lit_VarLike 'CFLAGS=') (CommandSubPart command_list: (CommandList children: [(C {(perl)} {(-MConfig)} {(-E)} {(SQ <'say $Config{ccflags}'>)})] ) left_token: <Left_Backtick '`'> spids: [203 213] ) } ) (AndOr children:[(C {(make)})(C {(make)} {(test)})] op_id:Op_DAmp) ] spids: [190] ) spids: [186 189] ) (FuncDef name: package body: (BraceGroup children: [ (C {(cd)} {(DQ ($ VSub_Name '$_builddir'))}) (AndOr children: [ (C {(make)} {(Lit_VarLike 'DESTDIR=') (DQ ($ VSub_Name '$pkgdir'))} {(install)}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] op_id: Op_DPipe ) (C {(find)} {(DQ ($ VSub_Name '$pkgdir'))} {(EscapedLiteralPart token:<Lit_EscapedChar '\\('>)} {(-name)} {(perllocal.pod)} {(-o)} {(-name)} {(.packlist)} {(EscapedLiteralPart token:<Lit_EscapedChar '\\)'>)} {(-delete)} ) ] spids: [231] ) spids: [227 230] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:md5sums) op: Equal rhs: { (DQ ('553e68e603723bf7c631f8701ab0d678 Unicode-String-2.09.tar.gz\n') ('b08a47f2bd8b046a98fe4951f3eb6e43 perl-Unicode-String-2.09-undefined.patch') ) } spids: [282] ) ] spids: [282] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:sha256sums) op: Equal rhs: { (DQ ( 'c817bedb954ea2d488bade56059028b99e0198f6826482e2f68fd6d78653faad Unicode-String-2.09.tar.gz\n' ) ( '7128483d06c846a9fbfbc1dc501b755b879914885f12559fec30ac4f6fb12d39 perl-Unicode-String-2.09-undefined.patch' ) ) } spids: [288] ) ] spids: [288] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:sha512sums) op: Equal rhs: { (DQ ( '88bd5fe4a1e8ac05b7da5f75411f3e2cb17fb756ca926ace7f46d047ba7a7f22e54462efb61c2f0bf651d2c63d6fe74bffa8b7bcf49aa59847135a43b5cde759 Unicode-String-2.09.tar.gz\n' ) ( 'b25a6c91d5ecc11dd3c8a675024111a3dfadaf3b22f2b3000f5fb3f7e79741b28aafa709b3c72ff7e6f4f936d8fbc38f50ca5994513b47badb57a31872e99450 perl-Unicode-String-2.09-undefined.patch' ) ) } spids: [294] ) ] spids: [294] ) ] )