[svn:dbi] r12728 - dbi/trunk/lib/DBD

[hmbrand]

Author: hmbrand
Date: Fri May  1 02:55:33 2009
New Revision: 12728

Modified:
   dbi/trunk/lib/DBD/File.pm

Log:
only parse options when set

Modified: dbi/trunk/lib/DBD/File.pm
==============================================================================
--- dbi/trunk/lib/DBD/File.pm   (original)
+++ dbi/trunk/lib/DBD/File.pm   Fri May  1 02:55:33 2009
@@ -84,7 +84,7 @@
     my ($ext, $req) = ("", 0, 0);
     if ($data->{f_ext}) {
        ($ext, my $opt) = split m/\//, $data->{f_ext};
-       if ($ext) {
+       if ($ext && $opt) {
            $opt =~ m/r/i and $req = 1;
            }
        }