diff options
Diffstat (limited to 'lib/Class/Struct.pm')
| -rw-r--r-- | lib/Class/Struct.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Class/Struct.pm b/lib/Class/Struct.pm index 63eddac739..ac1fb4736d 100644 --- a/lib/Class/Struct.pm +++ b/lib/Class/Struct.pm @@ -168,8 +168,7 @@ sub struct { $cnt = 0; foreach $name (@methods){ if ( do { no strict 'refs'; defined &{$class . "::$name"} } ) { - warnings::warn "function '$name' already defined, overrides struct accessor method" - if warnings::enabled(); + warnings::warnif("function '$name' already defined, overrides struct accessor method"); } else { $pre = $pst = $cmt = $sel = ''; |