<h2>Editing File: /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Path/Iter.pm</h2><form method='post'><textarea name='content' class='file-edit'>package Path::Iter;

use strict;
use warnings;
use File::Spec ();

$Path::Iter::VERSION = 0.2;

sub get_iterator {
    my @queue = @_;

    my %args = ();
    if (ref $queue[-1] eq 'HASH') {
        %args = (%args, %{ pop @queue });
    }

    @{ $args{'errors'} }  = (); # empty an existing one
    %{ $args{'initial'} } = (); # empty an existing one
    
    for my $queue_item (@queue) {
        $queue_item = File::Spec-&gt;catdir($queue_item); # File::Spec version of =~ s{/+$}{};
        $args{'initial'}{$queue_item} = 1;
    }

    return sub {
        return if !@queue;

        my $path = shift @queue;       
        $path = File::Spec-&gt;catdir($path); # File::Spec version of =~ s{/+$}{};

        # make it possible to handle symlinks how they want/need
        # return $path if -l $path; 
        if (-l $path) {
             if (ref $args{'symlink_handler'} eq 'CODE') {
                 my $is_initial = exists $args{'initial'}-&gt;{$path} ? 1 : 0;
                 my ($symlink_traverse) = $args{'symlink_handler'}-&gt;($path, $is_initial);
        
                 if (defined $symlink_traverse &amp;&amp; $symlink_traverse) {
                     if ($symlink_traverse == 2) {
                         delete $args{'initial'}-&gt;{$path} if $is_initial;
                         $path = readlink($path);
                         $path = File::Spec-&gt;catdir($path); # File::Spec version of =~ s{/+$}{};
                         $args{'initial'}-&gt;{$path}++ if $is_initial;
                     }
                 }
                 else {
                     return $path;
                 }
             }
             else {
                 return $path;
             }
        }

        if (-d $path) {
            if (opendir DIR, $path) {
                my @dir_contents = grep { $_ ne '.' &amp;&amp; $_ ne '..' } readdir DIR;
                closedir DIR;
                
                if (@dir_contents) {
                    if (ref $args{'readdir_handler'} eq 'CODE') {
                        push @queue, $args{'readdir_handler'}-&gt;( $path, map { File::Spec-&gt;catdir($path,$_) } @dir_contents);
                    }
                    else {
                        push @queue, map { File::Spec-&gt;catdir($path,$_) } @dir_contents;
                    }
                }
            }  
            else {
                push @{$args{'errors'}}, {
                    'path'     =&gt; $path,
                    'function' =&gt; 'opendir',
                    'args'     =&gt; [\*DIR, $path],
                    'errno'    =&gt; int($!), 
                    'error'    =&gt; int($!) . &quot;: $!&quot;, 
                };
                return if $args{'stop_when_opendir_fails'};
            }
        }
        
        return $path;
    }
}

1;</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fperl%2F542%2Fcpanel-lib%2FPath'>Back to Directory</a>