Changeset 289 for trunk/dasscm/dasscm

Timestamp:

Mar 11, 2009, 7:49:21 AM (15 years ago)

Author:

joergs

Message:

svn_ls: improved handling of single files

File:

• trunk/dasscm/dasscm (modified) (1 diff)

trunk/dasscm/dasscm

@@ -560 +560 @@
     my @others = ();
 
-    if ( -f $filename_prod ) {
-        @files = ($basename);
-    } elsif ( -d $dirname_repo ) {
-        find(
-            {
-                wanted => sub {
-                    my $name = normalize_path($File::Find::name);
-                    $name =~ s|^$dirname_repo||;
-                    #print "($name)\n";# . $File::Find::dir . "\n";
-                    if ( not $name ) {
-                        # name string is empty (top directory).
-                        # do nothing
-                    } elsif ( $name =~ m/\.svn/ ) {
-
-                        # skip svn meta data
-                    } elsif ( -l $_ ) {
-
-                        # soft link
-                        # important: check for links first
-                        #   to exclude them from further checks
-                        push( @links, $name );
-                    } elsif ( -d $_ ) {
-                        #if( $name."/" eq dirname_repo ) {
-                            # directories
-                            push( @dirs, $name );
-                        #}
-                    } elsif ( -f $_ ) {
-
-                        # regular file
-                        push( @files, $name );
-                    } else {
-                        push( @others, $name );
-                    }
-                  }
-            },
-            ($dirname_repo)
-        );
-    }
+    find(
+        {
+            wanted => sub {
+                my $name = normalize_path($File::Find::name);
+                $name =~ s|^$dirname_repo||;
+                #print "($name)\n";# . $File::Find::dir . "\n";
+                if ( not $name ) {
+                    # name string is empty (top directory).
+                    # do nothing
+                } elsif ( $name =~ m/\.svn/ ) {
+
+                    # skip svn meta data
+                } elsif ( -l $_ ) {
+
+                    # soft link
+                    # important: check for links first
+                    #   to exclude them from further checks
+                    push( @links, $name );
+                } elsif ( -d $_ ) {
+                    #if( $name."/" eq dirname_repo ) {
+                        # directories
+                        push( @dirs, $name );
+                    #}
+                } elsif ( -f $_ ) {
+
+                    # regular file
+                    push( @files, $name );
+                } else {
+                    push( @others, $name );
+                }
+            }
+        },
+        ($filename_repo)
+    );
 
     return ( sort( @dirs, @files ) );