need some dummy functions so that checking for installed packages behave correctly (testing with automatic printer configuration)

1 files changed, 27 insertions, 1 deletions

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;