[LON-CAPA-cvs] cvs: loncom /debugging_tools check_authoring_spaces.pl

[raeburn]

raeburn		Thu Oct 12 21:29:29 2017 EDT

  Modified files:              
    /loncom/debugging_tools	check_authoring_spaces.pl 
  Log:
  - Get subdirectories from path in correct order. 
  
  
Index: loncom/debugging_tools/check_authoring_spaces.pl
diff -u loncom/debugging_tools/check_authoring_spaces.pl:1.2 loncom/debugging_tools/check_authoring_spaces.pl:1.3
--- loncom/debugging_tools/check_authoring_spaces.pl:1.2	Tue Oct 10 15:07:45 2017
+++ loncom/debugging_tools/check_authoring_spaces.pl	Thu Oct 12 21:29:29 2017
@@ -9,7 +9,7 @@
 # If files are not the same include in list for potentially overwriting
 # file in Authoring space with file in Resource space. 
 #
-# $Id: check_authoring_spaces.pl,v 1.2 2017/10/10 15:07:45 raeburn Exp $
+# $Id: check_authoring_spaces.pl,v 1.3 2017/10/12 21:29:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -396,7 +396,7 @@
                                         my $file = pop(@subdirs);
                                         my $path = "$londaemons/logs/checked_authoring_spaces/$dom/$uname";
                                         while (@subdirs) {
-                                            my $dir = pop(@subdirs);
+                                            my $dir = shift(@subdirs);
                                             $path .= '/'.$dir;
                                             if (!-e $path) {
                                                 mkdir($path,0755);