Author: varkoly Date: Sun Dec 30 21:03:49 2007 New Revision: 43243 URL: http://svn.opensuse.org/viewcvs/yast?rev=43243&view=rev Log: Bug 336276 - Attempt to configure autofs via YaST2 results in a Perl error message Modified: trunk/autofs/src/Autofs.pm Modified: trunk/autofs/src/Autofs.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/autofs/src/Autofs.pm?rev=43243&r1=43242&r2=43243&view=diff ============================================================================== --- trunk/autofs/src/Autofs.pm (original) +++ trunk/autofs/src/Autofs.pm Sun Dec 30 21:03:49 2007 @@ -566,7 +566,7 @@ # TODO FIXME Names of real stages # We do not set help text here, because it was set outside - Progress::New( $caption, " ", $steps, [ + Progress->New( $caption, " ", $steps, [ # Progress stage 1/2 __("Check the ldap configuration"), # Progress stage 2/2 @@ -583,7 +583,7 @@ ); # read database - Progress::NextStage(); + Progress->NextStage(); # Error message if(! $self->CheckLDAP()) { @@ -600,7 +600,7 @@ return Popup->Error($ERROR); } # read database - Progress::NextStage(); + Progress->NextStage(); # Error message if(! $self->ReadMaps()) { @@ -619,7 +619,7 @@ sleep($sl); # Progress finished - Progress::NextStage(); + Progress->NextStage(); sleep($sl); $modified = 0; @@ -645,7 +645,7 @@ # TODO FIXME Names of real stages # We do not set help text here, because it was set outside - Progress::New($caption, " ", $steps, [ + Progress->New($caption, " ", $steps, [ # Progress stage 1/1 __("Write the autofs maps") ], [ @@ -658,7 +658,7 @@ ); # write settings - Progress::NextStage(); + Progress->NextStage(); # Error message if(! $self->WriteAutofsMapsToLDAP()) { @@ -667,7 +667,7 @@ sleep($sl); # Progress finished - Progress::NextStage(); + Progress->NextStage(); sleep($sl); return Boolean(1); -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org