GTM Pools

In V9, you'll have to use the string literals for the enumeration types. So, your code should look like this:

 

 

@gtmEnabled = ('STATE_ENABLED', 'STATE_ENABLED', 'STATE_ENABLED', 'STATE_ENABLED'); 
 @gtmDisabled = ('STATE_DISABLED', 'STATE_DISABLED', 'STATE_DISABLED', 'STATE_DISABLED');

 

 

That's assuming that your code will create an array. I usually work through Perl by trail and error and I don't have access to my dev machine right now.

 

 

If that doesn't work, this should:

 

 

my @gtmPools; 
 push @gtmPools, "prod1"; 
 push @gtmPools, "prod2"; 
 push @gtmPools, "prod3"; 
 push @gtmPools, "prod4"; 
  
 my @gtmEnabled; 
 push @gtmEnabled, "STATE_ENABLED"; 
 push @gtmEnabled, "STATE_ENABLED"; 
 push @gtmEnabled, "STATE_ENABLED"; 
 push @gtmEnabled, "STATE_ENABLED"; 
  
 my @gtmDisabled; 
 push @gtmDisabled, "STATE_DISABLED"; 
 push @gtmDisabled, "STATE_DISABLED"; 
 push @gtmDisabled, "STATE_DISABLED"; 
 push @gtmDisabled, "STATE_DISABLED";

 

 

Hope this helps...

 

 

-Joe