Avoid crashes when perl-script doesn't set $a
Avoid crashes when perl-script doesn't set $a

svn path=/trunk/kdepim/; revision=327626

lefou/kdepim-noakonadi,lefou/kdepim-noakonadi,lefou/kdepim-noakonadi,lefou/kdepim-noakonadi,lefou/kdepim-noakonadi,lefou/kdepim-noakonadi