More ideas on a quick Perl one-liner syntax for TODO file.
[libguestfs.git] / daemon / ls.c
index 61055b6..4d4714e 100644 (file)
@@ -1,5 +1,5 @@
 /* libguestfs - the guestfsd daemon
- * Copyright (C) 2009 Red Hat Inc. 
+ * Copyright (C) 2009 Red Hat Inc.
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -77,7 +77,7 @@ do_ls (char *path)
 char *
 do_ll (char *path)
 {
-  int r, len;
+  int r;
   char *out, *err;
   char *spath;
 
@@ -90,13 +90,11 @@ do_ll (char *path)
    * interactive sessions.  For the same reason, you can also "escape"
    * the sysroot (eg. 'll /..').
    */
-  len = strlen (path) + 9;
-  spath = malloc (len);
+  spath = sysroot_path (path);
   if (!spath) {
     reply_with_perror ("malloc");
     return NULL;
   }
-  snprintf (spath, len, "/sysroot%s", path);
 
   r = command (&out, &err, "ls", "-la", spath, NULL);
   free (spath);