view release on metacpan or  search on metacpan

cover_db/lib-Catalyst-Controller-Combine-pm.html  view on Meta::CPAN

<tr><td class="h">419</td><td><div class="c3">50</div></td><td></td><td></td><td></td><td></td><td><div>377</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;my $dir = $c-&gt;path_to(&#39;root&#39;, $self-&gt;dir);</td></tr>
<tr><td class="h">420</td><td><div class="c3">50</div><div class="c3">100</div><div class="c3">50</div></td><td></td><td></td><td></td><td></td><td><div>12117</div><div>18331</div><div>62</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;foreach my $fi...
<tr><td class="h">421</td><td><div class="c3">97</div></td><td><div class="c0" title="-/-"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L421">0</a></div></td><td></td><td></td><td></td><td><div>20064</div></td><td class="s">&nbsp;&nbsp;&n...
<tr><td class="h">422</td><td colspan="7"></td></tr><tr><td class="h">423</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;# the file we want exists. Time to do a security check</...
<tr><td class="h">424</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;# hint: a call to resolve() will die under windows</td></tr>
<tr><td class="h">425</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#       if the path requested does not exist on the filesystem.</td></tr>
<tr><td class="h">426</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#       therefore, we check as late as possible</td></tr>
<tr><td class="h">427</td><td><div class="c3">44</div></td><td><div class="c0" title="-/-"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L427">0</a></div></td><td></td><td></td><td></td><td><div>2885</div></td><td class="s">&nbsp;&nbsp;&nb...
<tr><td class="h">428</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;or die &#39;security violation - tried to access file outside of: &#39;</td></tr>
<tr><td class="h">429</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;. $self-&gt;dir();</td></tr>
<tr><td class="h">430</td><td colspan="7"></td></tr><tr><td class="h">431</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;# looks like we are secure -- are there any secret unico...
<tr><td class="h">432</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;# we forgot to double-check? *g*</td></tr>
<tr><td class="h">433</td><td><div class="c3">43</div><div class="c3">43</div></td><td></td><td></td><td></td><td></td><td><div>68570</div><div>90</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push @{$self-&gt;{parts}}, $bas...
<tr><td class="h">434</td><td><div class="c3">43</div><div class="c3">43</div></td><td></td><td></td><td></td><td></td><td><div>33</div><div>57</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push @{$self-&gt;{files}}, $file_p...
<tr><td class="h">435</td><td><div class="c3">43</div></td><td></td><td></td><td></td><td></td><td><div>73</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$self-&gt;{seen}-&gt;{$base_name} = $depends;</td></tr>
<tr><td class="h">436</td><td colspan="7"></td></tr><tr><td class="h">437</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;# check replacements</td></tr>
<tr><td class="h">438</td><td><div class="c3">43</div></td><td></td><td></td><td></td><td></td><td><div>640</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return if (!$self-&gt;replace </td></tr>
<tr><td class="h">439</td><td></td><td></td><td></td><td></td><td></td><td></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;|| ref($self-&gt;replace) ne &#39;HASH&#39; </td></tr>
<tr><td class="h">440</td><td><div class="c3">43</div></td><td><div class="c0" title="-/-"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L440">0</a></div></td><td><div class="c0"><a href="lib-Catalyst-Controller-Combine-pm--condition.html#...
<tr><td class="h">441</td><td><div class="c0">0</div><div class="c0">0</div></td><td></td><td></td><td></td><td></td><td><div>0</div><div>0</div></td><td class="s">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;foreach my $glob (keys(%{$self-&gt;rep...
<tr><td class="h">442</td><td><div class="c0">0</div></td><td><div class="c0" title="-/-"><a href="lib-Catalyst-Controller-Combine-pm--branch.html#L442">0</a></div></td><td></td><td></td><td></td><td><div>0</div></td><td class="s">&nbsp;&nbsp;&nbsp;&...

lib/Catalyst/Controller/Combine.pm  view on Meta::CPAN

        next if (!-f $file_path);
        
        # the file we want exists. Time to do a security check
        # hint: a call to resolve() will die under windows
        #       if the path requested does not exist on the filesystem.
        #       therefore, we check as late as possible
        $dir->subsumes($file_path->resolve)
            or die 'security violation - tried to access file outside of: '
                   . $self->dir();
        
        # looks like we are secure -- are there any secret unicodes
        # we forgot to double-check? *g*
        push @{$self->{parts}}, $base_name;
        push @{$self->{files}}, $file_path;
        $self->{seen}->{$base_name} = $depends;
        
        # check replacements
        return if (!$self->replace 
                || ref($self->replace) ne 'HASH' 
                || !scalar(keys(%{$self->replace})));
        foreach my $glob (keys(%{$self->replace})) {