![[BACK]](/icons/back.gif){kind=icon}
Return to libtool CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / src / usr.bin / libtool|
Return to libtool CVS log | Up to [local] / src / usr.bin / libtool |
| version 1.1, 2012/06/19 09:30:44 | version 1.2, 2012/06/19 18:56:07 | ||
|---|---|---|---|
|
|
||
| my $program = shift; | my $program = shift; | ||
| open(my $pw, '<', $program) or die "Cannot open $program: $!\n"; | open(my $pw, '<', $program) or die "Cannot open $program: $!\n"; | ||
| return eval(grep { m/wrapper\sfor/ } <$pw>); | return grep { m/wrapper\sfor/ } <$pw>; | ||
| } | } | ||