Changes in perl/lib/BarnOwl/Completion/Util.pm [e6cec01:69c27e6]

File:

• perl/lib/BarnOwl/Completion/Util.pm (modified) (2 diffs)

perl/lib/BarnOwl/Completion/Util.pm

@@ -5 +5 @@
 
 use base qw(Exporter);
-our @EXPORT_OK = qw(complete_flags complete_file);
+our @EXPORT_OK = qw(complete_flags);
 
 use Getopt::Long;
-use Cwd qw(abs_path);
-use File::Basename qw(dirname basename);
-
 
 sub complete_flags {
@@ -70 +67 @@
     }
 }
-
-sub expand_tilde {
-    # Taken from The Perl Cookbook, recipe 7.3
-    my $path = shift;
-    $path =~ s{ ^ ~ ( [^/]* ) }
-                { $1
-                  ? (getpwnam($1))[7]
-                  : ( $ENV{HOME} || $ENV{LOGDIR}
-                      || (getpwuid($>))[7]
-                     )
-              }ex;
-    return $path;
-}
-
-sub splitfile {
-    my $path = shift;
-    if ($path =~ m{^(.*/)([^/]*)$}) {
-        return ($1, $2);
-    } else {
-        return ('', $path);
-    }
-}
-
-sub complete_file {
-    my $string = shift;
-
-    return ['~/', '~/', 0] if $string eq '~';
-
-    my $path = abs_path(expand_tilde($string));
-    my $dir;
-    if ($string =~ m{/$} || $string eq '' || basename($string) eq '.') {
-        $dir = $path;
-    } else {
-        $dir = dirname($path);
-    }
-    return unless -d $dir;
-
-    my ($pfx, $base) = splitfile($string);
-    
-    opendir(my $dh, $dir) or return;
-    my @dirs = readdir($dh);
-    close($dh);
-
-    my @out;
-    for my $d (@dirs) {
-        # Skip dotfiles unless explicitly requested
-        if($d =~ m{^[.]} && $base !~ m{^[.]}) {
-            next;
-        }
-        
-        my ($text, $value, $done) = ($d, "${pfx}${d}", 1);
-
-        if (-d "$dir/$d") {
-            $text .= "/";
-            $value .= "/";
-            $done = 0;
-        }
-        push @out, [$text, $value, $done];
-    }
-    return @out;
-}