[svn:Module-Build] r11191 - Module-Build/trunk/lib/Module/Build

[kwilliams]

Author: kwilliams
Date: Fri May  2 13:32:54 2008
New Revision: 11191

Modified:
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
We need to add 'use strict' in a couple of auto-generated methods, but actually 
that would break things in subtle ways, so I'm leaving it as-is for now

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Fri May  2 13:32:54 2008
@@ -696,6 +696,7 @@
         no strict 'refs';
        if ( $type eq 'HASH' ) {
           *{"$class\::$property"} = sub {
+            # XXX this needs 'use strict' again
            my $self = shift;
            my $x = $self->{properties};
            return $x->{$property} unless @_;
@@ -719,6 +720,7 @@
 
         } else {
           *{"$class\::$property"} = sub {
+            # XXX this needs 'use strict' again
            my $self = shift;
            $self->{properties}{$property} = shift if @_;
            return $self->{properties}{$property};