I have the following code

#!/usr/bin/perl -w

use strict;
use DBI;

my $trace_level=2;
DBI->trace($trace_level);
my $driver = 'ODBC';
print qq(DRIVER:$driver\n);
my @data_sources = DBI->data_sources($driver);
foreach my $source (@data_sources)
{
    print qq(    SOURCE:$source\n);
}
[download]

Which generates the following output

    DBI 1.13-nothread dispatch trace level set to 2
    -> DBI->install_driver(ODBC) for perl=5.00405 pid=29564 ruid=500 e
+uid=500
       install_driver: DBD::ODBC loaded (version 0.27)
    <- install_driver= DBI::dr=HASH(0x8144e48)
    -> data_sources for DBD::ODBC::dr (DBI::dr=HASH(0x8144e48)~0x816ec
+8c)
Out of memory!
    -> DBI::END
    -> disconnect_all for DBD::ODBC::dr (DBI::dr=HASH(0x8144e48)~0x816
+ec8c)
    <- disconnect_all= '' at DBI.pm line 424.
    <- DBI::END complete
    -> DESTROY in DBD::_::common for DBD::ODBC::dr (DBI::dr=HASH(0x816
+ec8c)~INNER)
    <- DESTROY= undef during global destruction.
DRIVER:ODBC
[download]

What I would like to know is what the "Out of memory!" message is about.
I see from perldoc DBI that

"Note that many drivers have no way of knowing what data
sources might be available for it, and thus typically,
return an empty or incomplete list."

But why should this function call be causing the "Out of Memory"
message?