Commit 91ab4a53 authored by Jesse Vincent's avatar Jesse Vincent Committed by Alex Vandiver
Browse files

remove a bunch of "no warnings 'redefined'" ;

clean up "use warnings" to show up where "use strict" is
parent bf2bcb0f
......@@ -69,7 +69,8 @@ sub Table {'ACL'}
use strict;
no warnings qw(redefine);
use warnings;
use RT::Principals;
use RT::Queues;
use RT::Groups;
......
......@@ -72,7 +72,8 @@ use base 'RT::SearchBuilder';
sub Table { 'ACL'}
use strict;
no warnings qw(redefine);
use warnings;
=head2 Next
......
......@@ -64,6 +64,7 @@
package RT::Action;
use strict;
use warnings;
use Scalar::Util;
use base qw/RT::Base/;
......
......@@ -50,6 +50,7 @@ package RT::Approval;
use strict;
use warnings;
use RT::Ruleset;
RT::Ruleset->Add(
......
......@@ -72,7 +72,8 @@ sub Table {'Attachments'}
use strict;
no warnings qw(redefine);
use warnings;
use RT::Transaction;
use MIME::Base64;
......
......@@ -69,6 +69,7 @@ should only be accessed through exported APIs in Ticket, Queue and other similar
package RT::Attachments;
use strict;
use warnings;
use RT::Attachment;
......@@ -76,7 +77,7 @@ use RT::Attachment;
use base 'RT::SearchBuilder';
sub Table { 'Attachments'}
no warnings qw(redefine);
use RT::Attachment;
......@@ -248,6 +249,7 @@ sub NewItem {
my $self = shift;
return(RT::Attachment->new($self->CurrentUser));
}
RT::Base->_ImportOverlays();
1;
......@@ -49,7 +49,8 @@
package RT::Attribute;
use strict;
no warnings qw(redefine);
use warnings;
use base 'RT::Record';
sub Table {'Attributes'}
......
......@@ -66,7 +66,8 @@ RT::Attributes - collection of RT::Attribute objects
package RT::Attributes;
use strict;
no warnings qw(redefine);
use warnings;
use RT::Attribute;
......
......@@ -51,6 +51,7 @@ use Carp ();
use Scalar::Util ();
use strict;
use warnings;
use vars qw(@EXPORT);
@EXPORT=qw(loc CurrentUser);
......
......@@ -49,7 +49,8 @@
package RT::CachedGroupMember;
use strict;
no warnings qw(redefine);
use warnings;
use base 'RT::Record';
......
......@@ -67,7 +67,8 @@
package RT::CachedGroupMembers;
use strict;
no warnings qw(redefine);
use warnings;
use RT::CachedGroupMember;
......
......@@ -80,6 +80,7 @@ package RT::Condition;
use strict;
use warnings;
use base qw/RT::Base/;
sub new {
......
......@@ -51,6 +51,7 @@ package RT::Config;
use strict;
use warnings;
use File::Spec ();
=head1 NAME
......
......@@ -93,6 +93,7 @@ use RT::I18N;
use strict;
use warnings;
use base qw/RT::User/;
#The basic idea here is that $self->CurrentUser is always supposed
......
......@@ -49,7 +49,8 @@
package RT::CustomField;
use strict;
no warnings qw(redefine);
use warnings;
use base 'RT::Record';
......
......@@ -46,8 +46,9 @@
#
# END BPS TAGGED BLOCK }}}
use warnings;
use strict;
use warnings;
package RT::CustomFieldValue;
......
......@@ -52,6 +52,7 @@ use strict;
use warnings;
use RT::CustomFieldValue;
use base 'RT::SearchBuilder';
......
......@@ -67,6 +67,7 @@ package RT::CustomFields;
use strict;
use warnings;
use DBIx::SearchBuilder::Unique;
use RT::CustomField;
......
......@@ -71,6 +71,7 @@ use RT::SavedSearch;
use strict;
use warnings;
use base qw/RT::SharedSetting/;
use RT::System;
......
......@@ -71,6 +71,7 @@ package RT::Date;
use strict;
use warnings;
use base qw/RT::Base/;
use DateTime;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment