diff --git a/perl-fix_dbmclose_call.patch b/perl-fix_dbmclose_call.patch
new file mode 100644
index 0000000..40eae87
--- /dev/null
+++ b/perl-fix_dbmclose_call.patch
@@ -0,0 +1,11 @@
+--- ext/ODBM_File/ODBM_File.xs
++++ ext/ODBM_File/ODBM_File.xs
+@@ -121,7 +121,7 @@
+ 	dMY_CXT;
+ 	CODE:
+ 	dbmrefcnt--;
+-	dbmclose();
++	dbmclose(db);
+ 	safefree(db);
+ 
+ datum_value
diff --git a/perl.changes b/perl.changes
index c8cfc6e..c7014ab 100644
--- a/perl.changes
+++ b/perl.changes
@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Mon Mar 10 13:20:38 CET 2008 - pth@suse.de
+
+- Fix call to dbmclose in ext/ODBM_File/ODBM_File.xs
+- Run 'make check' in %check
+
 -------------------------------------------------------------------
 Tue Feb 19 15:31:36 CET 2008 - mls@suse.de
 
diff --git a/perl.spec b/perl.spec
index c1fea72..baa9388 100644
--- a/perl.spec
+++ b/perl.spec
@@ -16,7 +16,7 @@ Name:           perl
 Url:            http://www.perl.org/
 BuildRequires:  db-devel gdbm-devel ncurses-devel zlib-devel
 Version:        5.10.0
-Release:        14
+Release:        16
 Summary:        The Perl interpreter
 License:        Artistic License; GPL v2 or later
 Group:          Development/Languages/Perl
@@ -36,6 +36,7 @@ Source1:        %name-rpmlintrc
 Patch:          perl-%{version}.dif
 Patch1:         perl-gracefull-net-ftp.diff
 Patch2:         perl-5.10.0-regexp.diff
+Patch3:         perl-fix_dbmclose_call.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 
 %description
@@ -85,6 +86,7 @@ Authors:
 %patch
 %patch1
 %patch2
+%patch3
 
 %build
 options="-Doptimize='$RPM_OPT_FLAGS -Wall -pipe'"
@@ -105,6 +107,8 @@ make clobber
 ./configure.gnu --prefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm $options
 make
 %ifnarch ppc64 %arm
+
+%check
 # delete broken File::Find test
 rm -f lib/File/Find/t/find.t
 # delete racy test
@@ -284,6 +288,9 @@ cat perl-base-filelist | sed -e 's/^/%exclude /g' > perl-base-excludes
 #%ghost %doc /usr/share/man/man3/perllocal.3pm.gz
 
 %changelog
+* Mon Mar 10 2008 pth@suse.de
+- Fix call to dbmclose in ext/ODBM_File/ODBM_File.xs
+- Run 'make check' in %%check
 * Tue Feb 19 2008 mls@suse.de
 - fix bug in regexp engine [bnc#355233]
 * Fri Jan 18 2008 mls@suse.de