On 20/10/09 10:39, Richard W.M. Jones wrote:
+my @r;
+unless ($mode) {
+ @r = $g->ls ($directory);
+ print "$_\n" foreach @r;
+} elsif ($mode eq "l") {
+ print ($g->ll ($directory));
+} else { # $mode eq "R"
+ @r = $g->find ($directory);
+ print "$_\n" foreach @r;
+}
Do you want to use the new find0 here?
Otherwise, ACK.
Matt
--
Matthew Booth, RHCA, RHCSS
Red Hat Engineering, Virtualisation Team
M: +44 (0)7977 267231
GPG ID: D33C3490
GPG FPR: 3733 612D 2D05 5458 8A8A 1600 3441 EA19 D33C 3490