Permalink
Browse files

AUTOLOAD inheritance via SUPER:: is broken in 5.18 [perl #120694]

  • Loading branch information...
jandubois committed Dec 4, 2013
1 parent cddcaed commit b512b6a57c28e64168cd6aa231b6d555d958a5bf
Showing with 4 additions and 2 deletions.
  1. +3 −1 Changes
  2. +1 −1 t/3_ole.t
@@ -3,14 +3,16 @@ Revision history for Perl extension Win32::OLE.
Changes in version 0.01-0.03 are by Gurusamy Sarathy. All other changes
are by Jan Dubois unless attributed otherwise.
0.1710 November, 28th 2013
0.1710 December, 4th 2013
- Speedup Win32::OLE::Const by avoiding unneccessary calls to
stat(). Thanks to Eric Roode.
- Skip ANSI <-> OEM conversion test unless the OEM code page
is 437 or 850 [RT #53704]
- Fix required perl version 5.6 -> 5.006.
- Add Github repo link to META.yml
- Typo fixes by David Steinbrunner
- Avoid 5.18 bug in t/3_ole.t about AUTOLOAD inheritance failure
using SUPER:: [perl #120694]
0.1709 April 17th 2008
- Get rid of "package Win32" statement in lib/OLE.pm because
@@ -26,7 +26,7 @@ BEGIN {
sub AUTOLOAD {
my $self = shift;
$AUTOLOAD = "SUPER::" . substr $AUTOLOAD, rindex($AUTOLOAD, ':')+1;
$AUTOLOAD = "Win32::OLE::" . substr $AUTOLOAD, rindex($AUTOLOAD, ':')+1;
my $retval = $self->$AUTOLOAD(@_);
return $retval if defined($retval) || $AUTOLOAD eq 'DESTROY';
printf "# $AUTOLOAD returned OLE error 0x%08x\n", $LastError;

0 comments on commit b512b6a

Please sign in to comment.