[svn:parrot] r42946 - trunk/runtime/parrot/library

[fperrad at svn.parrot.org]

Author: fperrad
Date: Tue Dec  8 13:35:02 2009
New Revision: 42946
URL: https://trac.parrot.org/parrot/changeset/42946

Log:
[distutils] fix glob

Modified:
   trunk/runtime/parrot/library/distutils.pir

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Tue Dec  8 11:04:28 2009	(r42945)
+++ trunk/runtime/parrot/library/distutils.pir	Tue Dec  8 13:35:02 2009	(r42946)
@@ -3811,12 +3811,12 @@
     $I0 = stat dir, .STAT_ISDIR
     unless $I0 goto L4
     $S0 = basename(dir)
-    if $S0 == '.' goto L4
-    if $S0 == '..' goto L4
     $P5 = $P4.'readdir'(dir)
   L5:
     unless $P5 goto L4
     $S0 = shift $P5
+    if $S0 == '.' goto L5
+    if $S0 == '..' goto L5
     if dir == '.' goto L6
     $S1 = dir . '/'
     $S0 = $S1 . $S0