More rigorous session-cleanup for BecomeUser

[usit-rt.git] / sbin / rt-shredder

diff --git a/sbin/rt-shredder b/sbin/rt-shredder
index 38d37c766098ec70daacfb39545a4fc86b31234c..64addfd8e5d55130f50ab5a6dc4e5ef32732075f 100755 (executable)
--- a/sbin/rt-shredder
+++ b/sbin/rt-shredder
@@ -74,7 +74,7 @@ should wipeout.
 
 =head2 --sqldump <filename>
 
-Outputs INSERT queiries into file. This dump can be used to restore data
+Outputs INSERT queries into file. This dump can be used to restore data
 after wiping out.
 
 By default creates files
@@ -107,13 +107,13 @@ L<RT::Shredder>
 
 =cut
 
-use strict;
-use warnings FATAL => 'all';
-
 use lib '/www/data/rt/rt-perl/current-perl10/share/perl5';
 use lib '/www/data/rt/rt-perl/current-perl10/lib/perl5';
 use lib '/www/data/rt/rt-perl/current-perl10/lib64/perl5';
 
+use strict;
+use warnings FATAL => 'all';
+
 # fix lib paths, some may be relative
 BEGIN {
     require File::Spec;