#!/usr/bin/perl $self->{texts} = { 'Database update error:' => 'Fehler beim Datenbankupgrade:', }; $self->{subs} = { 'mydberror' => 'mydberror', 'mydoquery' => 'mydoquery', 'update_contacts_add_columns' => 'update_contacts_add_columns', }; 1;