opendir

--=-JEM3DKSc8QQv0zawpnJT
Content-Type: text/plain; charset=us-ascii; DelSp=Yes; Format=Flowed
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

i am trying to create a perl routine to traverse directories (like a =20
file browser) that will be incor****ated into a more specific framework,
=20
but for some incomprehensible (to me) reason, opendir will not produce =20
correct information when called in a sub!!! Why (the exact same script =20
works fine -- once, obviously -- without the sub loop)?

see attached

--=-JEM3DKSc8QQv0zawpnJT
Content-Type: application/x-perl; name=dirmenu.pl
Content-Disposition: attachment; filename=dirmenu.pl
Content-Transfer-Encoding: base64

IyEvdXNyL2Jpbi9wZXJsCiMgbW92ZSB0aHJ1IGRpcmVjdG9yaWVzCgp1c2Ugd2FybmluZ3M7CiN1
c2Ugc3RyaWN0Owp1c2UgRmlsZTo6c3RhdDsKCnN1YiBsaXN0ZGlyIHsKCSRkaXIgPSAkX1swXTsK
CW9wZW5kaXIoRCwgIiRkaXIiKTsKCUBsaXN0ID0gcmVhZGRpcihEKTsJCQkKCWNvbnRlbnRvZigp
OwoJc2VsZWN0YSgpOwp9CgkKc3ViIHNlbGVjdGEgewoJcHJpbnQgIlxud2hpY2ggZGlyZWN0b3J5
ICgjKTogIjsKCSRuZXcgPSA8PjsKCWNsb3NlZGlyKE5EKTsKCWxpc3RkaXIoJG5ldyk7Cn0KCnN1
YiBjb250ZW50b2YgewoJb3BlbmRpcihELCAiJGRpciIpOwoJQGxpc3QgPSByZWFkZGlyKEQpOwkJ
CQoJJG51bSA9IDA7Cglmb3JlYWNoICRmaWxlIChAbGlzdCkgewoJCWlmICggLWQgJGZpbGUgKSB7
CgkJCXByaW50ICIkbnVtOiAkZmlsZVxuIjsKCQkJJGRpcmxpc3RbJG51bV0gPSAkZmlsZTsKCQkJ
JG51bSsrOwkJCSMgaW5jcmVtZW50ICRudW0KCQl9Cgl9Cn0KCiRkaXIgPSAkQVJHVlswXTsJCSMg
c3RhdCAoZWcpIHdvbid0IGRlYWwgdy8gQEFSR1YKcHJpbnQgImRpcmVjdG9yeSAkZGlyIC0tXG4i
Owpjb250ZW50b2YoKTsKY2xvc2VkaXIoRCk7CiRjaHVjayA9IDw+OwkJCSMgZGVhbHMgd2l0aCBh
IHN0cmFuZ2UgZXh0cmEgc3Rkb3V0LT5zdGRpbiByZXR1cm4Kc2VsZWN0YSgpOwoK

--=-JEM3DKSc8QQv0zawpnJT--