Changeset 8716 for trunk/gsdl/perllib/plugins/RecPlug.pm

Timestamp:

2004-12-01T16:14:11+13:00 (19 years ago)

Author:

kjdon

Message:

added some changes made by Emanuel Dejanu (Simple Words)

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -100 +100 @@
 
 BEGIN {
-    @ISA = ('BasPlug');
+    @RecPlug::ISA = ('BasPlug');
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
 }
@@ -238 +238 @@
 
     # Re-order the files in the list so any directories ending with .all are moved to the end
-    for ($i = scalar(@dir) - 1; $i >= 0; $i--) {
+    for (my $i = scalar(@dir) - 1; $i >= 0; $i--) {
     if (-d &util::filename_cat($dirname, $dir[$i]) && $dir[$i] =~ /\.all$/) {
         push(@dir, splice(@dir, $i, 1));
@@ -302 +302 @@
 
         # Any new files are added to the end of @dir to get processed by the loop
+        my $j;
         foreach my $subfilenow (@dirnow) {
         for ($j = 0; $j < $num_files; $j++) {