From 095fdaf239dbdd9afc5e835513896cf27373ba8c Mon Sep 17 00:00:00 2001
From: Vitezslav Crhonek <vcrhonek@redhat.com>
Date: Thu, 9 Jun 2011 16:58:35 +0200
Subject: [PATCH] Add patch for previous fix...

---
 sblim-testsuite-1.3.0-perl-errors.patch | 34 +++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 sblim-testsuite-1.3.0-perl-errors.patch

diff --git a/sblim-testsuite-1.3.0-perl-errors.patch b/sblim-testsuite-1.3.0-perl-errors.patch
new file mode 100644
index 0000000..d1471c8
--- /dev/null
+++ b/sblim-testsuite-1.3.0-perl-errors.patch
@@ -0,0 +1,34 @@
+diff -up sblim-testsuite-1.3.0/consistence.pm.orig sblim-testsuite-1.3.0/consistence.pm
+--- sblim-testsuite-1.3.0/consistence.pm.orig	2011-06-09 16:05:22.000978911 +0200
++++ sblim-testsuite-1.3.0/consistence.pm	2011-06-09 16:06:16.382978956 +0200
+@@ -52,21 +52,21 @@ sub wbem_cli {
+ #                      asked for in parameter ${class} -> Provider failure ?
+ #
+ 
+-my $CLASS="";
++our $CLASS="";
+ my $INPUT_FILE;
+ 
+ my $REPORT_FILE;
+ my $OLD_HDL;             # save file handle of STDOUT; necesarry when report file is generated
+ 
+-my $keyname;
+-my $keyval;
+-my $inst;
+-my $checkRef_ain;
+-my $checkRef_gi;
+-my $sourceClass;
+-my $targetClass;
++our $keyname;
++our $keyval;
++our $inst;
++our $checkRef_ain;
++our $checkRef_gi;
++our $sourceClass;
++our $targetClass;
+ 
+-my @rc = (0,"");
++our @rc = (0,"");
+ 
+ 
+ #******************************************************************************#