Author: jreidinger Date: Wed Apr 22 14:35:00 2009 New Revision: 56913 URL: http://svn.opensuse.org/viewcvs/yast?rev=56913&view=rev Log: fix deprecated find, add interface for new perl-Bootloader calls Modified: trunk/bootloader/src/modules/BootCommon.ycp trunk/bootloader/src/modules/Bootloader_API.pm Modified: trunk/bootloader/src/modules/BootCommon.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/bootloader/src/modules/BootCommon.ycp?rev=56913&r1=56912&r2=56913&view=diff ============================================================================== --- trunk/bootloader/src/modules/BootCommon.ycp (original) +++ trunk/bootloader/src/modules/BootCommon.ycp Wed Apr 22 14:35:00 2009 @@ -566,7 +566,7 @@ // trying to find "vga" option foreach ( string key, cmd, { - if (find(key, "vga=") != -1) + if (issubstring(key, "vga=")) vga = key; y2milestone("key: %1", key); }); Modified: trunk/bootloader/src/modules/Bootloader_API.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/bootloader/src/modules/Bootloader_API.pm?rev=56913&r1=56912&r2=56913&view=diff ============================================================================== --- trunk/bootloader/src/modules/Bootloader_API.pm (original) +++ trunk/bootloader/src/modules/Bootloader_API.pm Wed Apr 22 14:35:00 2009 @@ -326,6 +326,32 @@ return $ret; } +#MBR utilities +BEGIN { $TYPEINFO{detectThinkpadMBR} = ["function", "boolean","string"]; } +sub detectThinkpadMBR($) { + my ($pass) = @_; + my $ret = $lib_ref->DetectThinkpadMBR($pass); + DumpLog(); + return $ret; +} + +BEGIN { $TYPEINFO{writeThinkpadMBR} = ["function", "boolean","string"]; } +sub writeThinkpadMBR($) { + my ($pass) = @_; + my $ret = $lib_ref->WriteThinkpadMBR($pass); + + DumpLog(); + return $ret; +} + +BEGIN { $TYPEINFO{examineMBR} = ["function", "string","string"]; } +sub examineMBR($) { + my ($pass) = @_; + my $ret = $lib_ref->ExamineMBR($pass); + + DumpLog(); + return $ret; +} # import fails if we cannot create the object $lib_ref; -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org