[libwin32] r565 committed - Fix style when calling method of the super class

[libw...@googlecode.com]

Revision: 565
Author: olivier.mengue
Date: Fri Mar 30 23:18:52 2012
Log: Fix style when calling method of the super class

http://code.google.com/p/libwin32/source/detail?r=565

Modified:
/trunk/Win32-EventLog/t/RT61484.t

=======================================
--- /trunk/Win32-EventLog/t/RT61484.t Wed Sep 22 18:13:26 2010
+++ /trunk/Win32-EventLog/t/RT61484.t Fri Mar 30 23:18:52 2012
@@ -1,6 +1,3 @@
-# Test case for bug RT#61484
-# Author : Olivier Mengué
-
use strict;
use warnings;

@@ -59,7 +56,7 @@
sub new
{
my $class = shift;
- my $self = TestLogSeq::new($class, @_);
+ my $self = $class->SUPER::new(@_);
$self->{flags} = (EVENTLOG_SEEK_READ | EVENTLOG_BACKWARDS_READ);

my $log = $self->{log};
@@ -85,6 +82,7 @@
is(scalar localtime $a->{TimeGenerated}, scalar localtime
$b->{TimeGenerated}, 'check TimeGenerated is "'.scalar(localtime
$a->{TimeGenerated}).'"');
#foreach my $attr (qw(RecordNumber Computer Source EventType Category
EventID Message)) {
foreach my $attr (qw(RecordNumber)) {
+ note((scalar localtime $a->{TimeGenerated})." ".$a->{attr});
is($a->{$attr}, $b->{$attr}, "check $attr is $b->{$attr}");
}
}