From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 22 Jul 2011 15:48:41 +0000 (+0000)
Subject: need to chdir because glob seems to have limited length return values
X-Git-Url: http://git.rot13.org/?p=cloudstore.git;a=commitdiff_plain;h=d112331994378a1498d13d4b6f782298aa304b5b

need to chdir because glob seems to have limited length return values
---

diff --git a/web-api.pl b/web-api.pl
index 8802149..2adcf2a 100755
--- a/web-api.pl
+++ b/web-api.pl
@@ -2,6 +2,7 @@
 
 use Mojolicious::Lite;
 use Data::Dump qw(dump);
+use Cwd;
 
 # Documentation browser under "/perldoc" (this plugin requires Perl 5.10)
 plugin 'pod_renderer';
@@ -18,16 +19,21 @@ warn "XXXXX ", dump( $self->req->url->path->to_string );
 
 	return $self->redirect_to( $path ) if -f $path;
 
+	my $cwd = getcwd;
+	chdir $path;
+	# need to chdir because glob seems to have limited length return values
+
 	my $files = [
 		map {
 			$_ .= '/' if -d $_;
-			s{$path/}{};
 			$_;
 		}
-		glob "$path/*"
+		glob '*'
 	];
 
-	warn "# path $path ",dump($files);
+	chdir $cwd;
+
+	warn "# path ",dump($path, $files);
 
 	$self->stash( files => $files );
 };