diff --git a/AIX/perl-DBI/6.1/Build-notes b/AIX/perl-DBI/6.1/Build-notes
index 9ef3adc..0e21827 100644
--- a/AIX/perl-DBI/6.1/Build-notes
+++ b/AIX/perl-DBI/6.1/Build-notes
@@ -4,7 +4,7 @@ Need cc_r compiler installed on AIX build system.
 
 Use DBI-1.611.tar.gz in this directory 
 Use the DBI.spec in this directory ( it was created by running a modified   
- cpan2rpm)
+ cpan2rpm to support AIX)
 
 cp DBI-1.611.tar.gz /opt/freeware/src/packages/SOURCES
 cp DBI.spec /opt/freeware/src/packages/SPECS
diff --git a/AIX/perl-DBI/6.1/DBI.spec b/AIX/perl-DBI/6.1/DBI.spec
index c641ebd..ad1693d 100644
--- a/AIX/perl-DBI/6.1/DBI.spec
+++ b/AIX/perl-DBI/6.1/DBI.spec
@@ -2,7 +2,7 @@
 #   - DBI -
 #   This spec file was automatically generated by cpan2rpm [ver: 2.028]
 #   The following arguments were used:
-#       .
+#       /opt/freeware/src/packages/SOURCES/DBI-1.611.tar.gz
 #   For more information on cpan2rpm please visit: http://perl.arix.com/
 #
 
@@ -13,7 +13,7 @@
 
 name:      perl-DBI
 summary:   DBI - Database independent interface for Perl
-version:   1.611 
+version:   1.611
 release:   1
 vendor:    Tim Bunce (dbi-users@perl.org)
 packager:  Arix International <cpan2rpm@arix.com>
@@ -23,7 +23,7 @@ url:       http://www.cpan.org
 buildroot: %{_tmppath}/%{name}-%{version}-%(id -u -n)
 buildarch: ppc
 prefix:    %(echo %{_prefix})
-source:    DBI-1.611.tar.gz 
+source:    DBI-1.611.tar.gz
 
 %description
 The DBI is a database access module for the Perl programming language.  It defines
@@ -49,14 +49,15 @@ chmod -R u+w %{_builddir}/%{pkgname}-%{version}
 
 %build
 grep -rsl '^#!.*perl' . |
-grep -v '.bak$' |xargs  \
+#   grep -v '.bak$' |xargs --no-run-if-empty \
+grep -v '.bak$' |xargs \
 %__perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)'
 CFLAGS="$RPM_OPT_FLAGS"
 %{__perl} Makefile.PL `%{__perl} -MExtUtils::MakeMaker -e ' print qq|PREFIX=%{buildroot}%{_prefix}| if \$ExtUtils::MakeMaker::VERSION =~ /5\.9[1-6]|6\.0[0-5]/ '`
 %{__make} 
-#%if %maketest
-#%{__make} test
-#%endif
+%if %maketest
+%{__make} test
+%endif
 
 %install
 [ "%{buildroot}" != "/" ] && rm -rf %{buildroot}
@@ -68,13 +69,13 @@ cmd=/usr/share/spec-helper/compress_files
 [ -x $cmd ] && $cmd
 
 # SuSE Linux
-#if [ -e /etc/SuSE-release -o -e /etc/UnitedLinux-release ]
-#then
-#    %{__mkdir_p} %{buildroot}/var/adm/perl-modules
-#    %{__cat} `find %{buildroot} -name "perllocal.pod"`  \
-#        | %{__sed} -e s+%{buildroot}++g                 \
-#        > %{buildroot}/var/adm/perl-modules/%{name}
-#fi
+#        if [ -e /etc/SuSE-release -o -e /etc/UnitedLinux-release ]
+#        then
+#            %{__mkdir_p} %{buildroot}/var/adm/perl-modules
+#            %{__cat} `find %{buildroot} -name "perllocal.pod"`  \
+#                | %{__sed} -e s+%{buildroot}++g                 \
+#                > %{buildroot}/var/adm/perl-modules/%{name}
+#        fi
 
 # remove special files
 find %{buildroot} -name "perllocal.pod" \
@@ -83,14 +84,13 @@ find %{buildroot} -name "perllocal.pod" \
     |xargs -i rm -f {}
 
 # no empty directories
-#find %{buildroot}%{_prefix}             \
-#    -type d -depth                      \
-#    -exec rmdir {} \; 2>/dev/null
-
+#        find %{buildroot}%{_prefix}             \
+#            -type d -depth                      \
+#            -exec rmdir {} \; 2>/dev/null
 
 %{__perl} -MFile::Find -le '
     find({ wanted => \&wanted, no_chdir => 1}, "%{buildroot}");
-    print "%doc  TODO_2005.txt ex Changes README";
+    print "%doc  TODO_2005.txt ex Changes TODO_gofer.txt README";
     for my $x (sort @dirs, @files) {
         push @ret, $x unless indirs($x);
         }
@@ -130,5 +130,5 @@ find %{buildroot} -name "perllocal.pod" \
 %defattr(-,root,root)
 
 %changelog
-* Wed May 30 2007 root@c68m3hvp01
-- Initial build.
+* Wed Jun 16 2010 root@c114m4h1p04.ppd.pok.ibm.com
+- Initial build.
\ No newline at end of file