From 27a3bb1dba050201cc1eddd6049f576c205b56ea Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Mon, 3 Nov 2003 14:14:14 +0000 Subject: need some dummy functions so that checking for installed packages behave correctly (testing with automatic printer configuration) --- move/pkgs.pm | 28 +++++++++++++++++++++++++++- 1 file changed, 27 insertions(+), 1 deletion(-) (limited to 'move/pkgs.pm') diff --git a/move/pkgs.pm b/move/pkgs.pm index 9fa952261..acc563852 100644 --- a/move/pkgs.pm +++ b/move/pkgs.pm @@ -1,5 +1,31 @@ +package pkg; + +sub flag_available { + log::l("(dummy pkg::flag_available called)"); + return 1; +} + + package pkgs; # $Id$ $ +use log; + +sub rpmDbOpen { + #- install_steps:343 +} + +sub packageByName { + #- install_steps:344 + return bless {}, 'pkg'; +} + +sub selectPackage { + #- install_steps:344 +} -#- dummy (use pkgs in perl-install/install_any.pm) +sub packagesToInstall { + #- install_steps:346 + return (); +} + 1; -- cgit v1.2.1