Changeset 8716 for trunk/gsdl/perllib/util.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/util.pm (modified) (8 diffs)

trunk/gsdl/perllib/util.pm

@@ -37 +37 @@
     # make sure the files we want to delete exist 
     # and are regular files
-    foreach $file (@files) {
+    foreach my$file (@files) {
     if (!-e $file) {
         print STDERR "util::rm $file does not exist\n";
@@ -62 +62 @@
 
     # recursively remove the files
-    foreach $file (@files) {
+    foreach my $file (@files) {
     $file =~ s/[\/\\]+$//; # remove trailing slashes
     
@@ -112 +112 @@
 
     # move the files
-    foreach $file (@srcfiles) {
+    foreach my $file (@srcfiles) {
     my $tempdest = $dest;
     if (-d $tempdest) {
@@ -147 +147 @@
 
     # copy the files
-    foreach $file (@srcfiles) {
+    foreach my $file (@srcfiles) {
     my $tempdest = $dest;
     if (-d $tempdest) {
@@ -190 +190 @@
 
     # copy the files
-    foreach $file (@srcfiles) {
+    foreach my $file (@srcfiles) {
 
     if (!-e $file) {
@@ -209 +209 @@
         my @filedir = readdir (INDIR);
         closedir (INDIR);
-        foreach $f (@filedir) {
+        foreach my $f (@filedir) {
             next if $f =~ /^\.\.?$/;
             # copy all the files in this directory
@@ -252 +252 @@
     my $dirsofar = "";
     my $first = 1;
-    foreach $dirname (split ("/", $dir)) {
+    foreach my $dirname (split ("/", $dir)) {
     $dirsofar .= "/" unless $first;
     $first = 0;
@@ -442 +442 @@
     }
 
-    @file1stat = stat ($file1);
-    @file2stat = stat ($file2);
+    my @file1stat = stat ($file1);
+    my @file2stat = stat ($file2);
 
     if (-d $file1) {