Lines 132-138
sub _autocreate {
Link Here
|
132 |
my %borrower = ( $config->{matchpoint} => $match ); |
132 |
my %borrower = ( $config->{matchpoint} => $match ); |
133 |
|
133 |
|
134 |
while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) { |
134 |
while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) { |
135 |
if ( any { /(^psgi|^plack)/i } keys %ENV ) { |
135 |
if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) { |
136 |
$borrower{$key} = ( $entry->{'is'} && $ENV{"HTTP_" . uc($entry->{'is'}) } ) || $entry->{'content'} || ''; |
136 |
$borrower{$key} = ( $entry->{'is'} && $ENV{"HTTP_" . uc($entry->{'is'}) } ) || $entry->{'content'} || ''; |
137 |
} else { |
137 |
} else { |
138 |
$borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || ''; |
138 |
$borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || ''; |
139 |
- |
|
|