[csw-devel] SF.net SVN: gar:[19813] csw/mgar/gar/v2/bin/cswproto

[dmichelsen at users.sourceforge.net]

Revision: 19813
          http://gar.svn.sourceforge.net/gar/?rev=19813&view=rev
Author:   dmichelsen
Date:     2012-12-04 17:08:27 +0000 (Tue, 04 Dec 2012)
Log Message:
-----------
mGAR v2: Fix case when there are no common directories

Modified Paths:
--------------
    csw/mgar/gar/v2/bin/cswproto

Modified: csw/mgar/gar/v2/bin/cswproto
===================================================================
--- csw/mgar/gar/v2/bin/cswproto	2012-12-04 16:19:05 UTC (rev 19812)
+++ csw/mgar/gar/v2/bin/cswproto	2012-12-04 17:08:27 UTC (rev 19813)
@@ -66,13 +66,6 @@
     exit 1;
 }
 
-# Check whether a path is a 'common' file, defined in __DATA__
-sub is_common {
-    my $path = shift;
-    return 1 if $path =~ /$Common/;
-    return 0;
-}
-
 # Returns true if the file should be excluded, false otherwise.
 sub exclude {
     my $path = shift;
@@ -159,7 +152,7 @@
         next unless $F[2];
 
         # Then process any excludes
-	next SPECLINE if( $F[2] =~ /$Common/ );
+	next SPECLINE if( $Common && $F[2] =~ /$Common/ );
         next if exclude($realpath);
 
         # Fix up dir permissions/file ownership.

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.