Author: paultcochrane
Date: Thu Mar 15 13:28:09 2007
New Revision: 17503
Modified:
trunk/lib/Parrot/IO/Capture/Mini.pm
trunk/lib/Parrot/Ops2c/Utils.pm
trunk/lib/Parrot/Pmc2c/Null.pm
trunk/lib/Parrot/Pmc2c/Ref.pm
trunk/lib/Parrot/Pmc2c/SharedRef.pm
trunk/lib/Parrot/Pmc2c/Standard.pm
trunk/lib/Parrot/Pmc2c/StandardConst.pm
trunk/lib/Parrot/Pmc2c/StandardRO.pm
trunk/lib/Parrot/Pmc2c/StmRef.pm
trunk/lib/Parrot/Pmc2c/default.pm
trunk/lib/Parrot/Pmc2c/deleg_pmc.pm
trunk/lib/Parrot/Pmc2c/delegate.pm
Log:
[lib] Added C<use warnings> pragma (part 1)
Modified: trunk/lib/Parrot/IO/Capture/Mini.pm
==============================================================================
--- trunk/lib/Parrot/IO/Capture/Mini.pm (original)
+++ trunk/lib/Parrot/IO/Capture/Mini.pm Thu Mar 15 13:28:09 2007
@@ -2,6 +2,7 @@
# $Id$
package Parrot::IO::Capture::Mini;
use strict;
+use warnings;
sub TIEHANDLE {
my $class = shift;
Modified: trunk/lib/Parrot/Ops2c/Utils.pm
==============================================================================
--- trunk/lib/Parrot/Ops2c/Utils.pm (original)
+++ trunk/lib/Parrot/Ops2c/Utils.pm Thu Mar 15 13:28:09 2007
@@ -2,6 +2,7 @@
# $Id$
package Parrot::Ops2c::Utils;
use strict;
+use warnings;
use lib ("lib/");
use Parrot::OpLib::core;
use Parrot::OpsFile;
Modified: trunk/lib/Parrot/Pmc2c/Null.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/Null.pm (original)
+++ trunk/lib/Parrot/Pmc2c/Null.pm Thu Mar 15 13:28:09 2007
@@ -6,6 +6,7 @@
package Parrot::Pmc2c::Null;
use base 'Parrot::Pmc2c';
+use warnings;
use Parrot::Pmc2c::UtilFunctions qw( gen_ret );
=item C<implements($method)>
Modified: trunk/lib/Parrot/Pmc2c/Ref.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/Ref.pm (original)
+++ trunk/lib/Parrot/Pmc2c/Ref.pm Thu Mar 15 13:28:09 2007
@@ -6,6 +6,7 @@
package Parrot::Pmc2c::Ref;
use base 'Parrot::Pmc2c';
+use warnings;
use Parrot::Pmc2c::UtilFunctions qw( gen_ret );
=item C<implements($method)>
Modified: trunk/lib/Parrot/Pmc2c/SharedRef.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/SharedRef.pm (original)
+++ trunk/lib/Parrot/Pmc2c/SharedRef.pm Thu Mar 15 13:28:09 2007
@@ -6,6 +6,7 @@
package Parrot::Pmc2c::SharedRef;
use base 'Parrot::Pmc2c::Ref';
+use warnings;
=item C<prederef($method)>
Modified: trunk/lib/Parrot/Pmc2c/Standard.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/Standard.pm (original)
+++ trunk/lib/Parrot/Pmc2c/Standard.pm Thu Mar 15 13:28:09 2007
@@ -8,6 +8,7 @@
package Parrot::Pmc2c::Standard;
use base 'Parrot::Pmc2c';
+use warnings;
=item C<body($method, $line, $out_name)>
Modified: trunk/lib/Parrot/Pmc2c/StandardConst.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/StandardConst.pm (original)
+++ trunk/lib/Parrot/Pmc2c/StandardConst.pm Thu Mar 15 13:28:09 2007
@@ -8,6 +8,7 @@
package Parrot::Pmc2c::Standard::Const;
use base 'Parrot::Pmc2c::Standard';
+use warnings;
use Parrot::Pmc2c::UtilFunctions qw( gen_ret );
=item C<body($method, $line, $out_name)>
Modified: trunk/lib/Parrot/Pmc2c/StandardRO.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/StandardRO.pm (original)
+++ trunk/lib/Parrot/Pmc2c/StandardRO.pm Thu Mar 15 13:28:09 2007
@@ -8,6 +8,7 @@
package Parrot::Pmc2c::Standard::RO;
use base 'Parrot::Pmc2c::Standard';
+use warnings;
use Parrot::Pmc2c::UtilFunctions qw( gen_ret );
=item C<implements($method)>
Modified: trunk/lib/Parrot/Pmc2c/StmRef.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/StmRef.pm (original)
+++ trunk/lib/Parrot/Pmc2c/StmRef.pm Thu Mar 15 13:28:09 2007
@@ -1,5 +1,6 @@
package Parrot::Pmc2c::STMRef;
use base 'Parrot::Pmc2c::Ref';
+use warnings;
=head1 Parrot::Pmc2c::STMRef Instance Methods
Modified: trunk/lib/Parrot/Pmc2c/default.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/default.pm (original)
+++ trunk/lib/Parrot/Pmc2c/default.pm Thu Mar 15 13:28:09 2007
@@ -6,6 +6,7 @@
package Parrot::Pmc2c::default;
use base 'Parrot::Pmc2c';
+use warnings;
import Parrot::Pmc2c qw( gen_ret );
=item C<implements($method)>
Modified: trunk/lib/Parrot/Pmc2c/deleg_pmc.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/deleg_pmc.pm (original)
+++ trunk/lib/Parrot/Pmc2c/deleg_pmc.pm Thu Mar 15 13:28:09 2007
@@ -1,5 +1,6 @@
package Parrot::Pmc2c::deleg_pmc;
use base 'Parrot::Pmc2c';
+use warnings;
use Parrot::Pmc2c::UtilFunctions qw( gen_ret );
=over 4
Modified: trunk/lib/Parrot/Pmc2c/delegate.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/delegate.pm (original)
+++ trunk/lib/Parrot/Pmc2c/delegate.pm Thu Mar 15 13:28:09 2007
@@ -6,6 +6,7 @@
package Parrot::Pmc2c::delegate;
use base 'Parrot::Pmc2c';
+use warnings;
=item C<implements($method)>
