37 files changed:
################################################################################
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
require "./parts/ppptools.pl";
my $INCLUDE = 'parts/inc';
################################################################################
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
require "./parts/ppptools.pl";
my $template = do { local $/; <DATA> };
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';
use Devel::PPPort;
use strict;
-$^W = 1;
+BEGIN { $^W = 1; }
package Devel::PPPort;
use vars '@ISA';