Sure.
if (ref ($sentdate) eq 'Win32::OLE::Variant') {
# something with $sentdate->Date
} else {
# assume $sentdate is a string.
}
There might be something more efficient one can do with SUPER
or AUTOLOAD or something. I've never had the time to figure it
out though.
> ----- Original Message -----
> From: "Satish Kaushik" <[EMAIL PROTECTED]>
> To: [email protected]
> Subject: Win32::OLE::Variant, perl crashing.
> Date: Fri, 5 May 2006 12:24:17 -0700
>
>
> Hi Everyone,
> I am using this module for the dates. While testing I came acorss
> one date which was not a Variant, PERL died saying can't call 'Date' method
> . I tried to get the 'Type' from the string but again since given string is
> not a Variant, it crashed.
> Is there any way to identify whether date is a Variant or a simple
> String?
> I would be really thankful if anyone suggests some thing,
>
> Thanks & Regards
> Satish
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [email protected]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
--
_______________________________________________
Search for businesses by name, location, or phone number. -Lycos Yellow Pages
http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default.asp?SRC=lycos10
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
