[OLE] Behavior change in Win32::OLE 0.12

[Lowery, Thomas]

Using the previous version of Win32::OLE and the following query I get the
listed results:
C:\DevStudio\MyProjects\perl\dBD-ado-0.19>perl -MWin32::OLE -e "print
$Win32::OL
E::VERSION"
0.1101

use Win32::OLE; 
use Win32::OLE::Const( "Microsoft ActiveX Data Objects 2\\.0 Library" );
use Data::Dumper;

$Conn = Win32::OLE->new( "ADODB.Connection" ) or 
        die Win32::OLE->LastError();

$Conn->Open("File Name=mssql.udl");
print "Test connection $c\n";
$oRec = $Conn->OpenSchema(adSchemaTables);
while(! $oRec->{EOF}) {
            my $c = $oRec->Fields->{Count};
            for (my $i = 0; $i < $c; $i++) {
                print "Field ", $oRec->Fields($i)->{Name},
                        "=", ($oRec->Fields($i)->{Value} || "undef"), "\n";
            }
        $oRec->MoveNext;
}
$Conn->Close;
exit;

Field TABLE_CATALOG=pubs
...
Field DATE_CREATED=11/13/98 3:11:04 AM
Field DATE_MODIFIED=undef

However, after upgrading Win32::OLE to version 0.12 this script now
presents:

Field TABLE_CATALOG=pubs
...
Field DATE_CREATED=Win32::OLE::Variant=SCALAR(0x9302920)
Field DATE_MODIFIED=undef

When I modify the script to include:
use Win32::OLE::Variant;
The results return the date correctly formatted.
Field DATE_CREATED=11/13/98 3:11:04 AM Type 7

Is this the desired affects or a bug?

Tom

---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]