projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rt 4.2.15
[freeside.git]
/
rt
/
lib
/
RT
/
Shredder
/
Dependencies.pm
diff --git
a/rt/lib/RT/Shredder/Dependencies.pm
b/rt/lib/RT/Shredder/Dependencies.pm
index
753364f
..
5e00541
100644
(file)
--- a/
rt/lib/RT/Shredder/Dependencies.pm
+++ b/
rt/lib/RT/Shredder/Dependencies.pm
@@
-2,7
+2,7
@@
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-201
1
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-201
8
Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-49,6
+49,7
@@
package RT::Shredder::Dependencies;
use strict;
package RT::Shredder::Dependencies;
use strict;
+use warnings;
use RT::Shredder::Exceptions;
use RT::Shredder::Constants;
use RT::Shredder::Dependency;
use RT::Shredder::Exceptions;
use RT::Shredder::Constants;
use RT::Shredder::Dependency;
@@
-106,7
+107,7
@@
sub _PushDependency
@_
);
my $rec = $args{'Shredder'}->PutObject( Object => $args{'TargetObject'} );
@_
);
my $rec = $args{'Shredder'}->PutObject( Object => $args{'TargetObject'} );
- return if $rec->{'State'} & WIPED; # there is no object anymore
+ return if $rec->{'State'} &
RT::Shredder::Constants::
WIPED; # there is no object anymore
push @{ $self->{'list'} },
RT::Shredder::Dependency->new(
push @{ $self->{'list'} },
RT::Shredder::Dependency->new(