From 8158f1a3b090d3449885670e9e97fdbb8f99bb0d Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Thu, 20 Jan 2000 13:24:53 +0000
Subject: [PATCH] lspath

---
 lspath/lspath | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 lspath/lspath

diff --git a/lspath/lspath b/lspath/lspath
new file mode 100755
index 0000000..d04b3a6
--- /dev/null
+++ b/lspath/lspath
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+use strict;
+
+
+for my $p (@ARGV) {
+
+    my @p = split (/\//, $p);
+    for (my $i = 0; $i < scalar(@p); $i++) {
+	my $pp = join("/", @p[0..$i]);
+	$pp = "/" if $pp eq "";
+
+	system("/bin/ls", "-ld", $pp);
+    }
+}