|
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 |
- |
|
|