|
print "1..1\n" ;
open (INLPP, "<data/lpp_name" ) or die "Can't open file lpp_name: $!" ;
open (OUTLPP, ">data/lpp_test.3" ) or die "Can't open file lpp_name: $!" ;
$package = AIX::LPP::lpp_name-> read (\ *INLPP );
$package -> write (\ *OUTLPP );
print "ok 1\n" ;
|