[Gnash-commit] gnash ChangeLog testsuite/libamf.all/gen_malfor...

[Benjamin Wolsey]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Benjamin Wolsey <bwy>   08/05/16 12:33:37

Modified files:
        .              : ChangeLog 
        testsuite/libamf.all: gen_malformed_sol_tests.pl 

Log message:
                * testsuite/libamf.all/gen_malformed_sol_tests.pl: skip 
directories
                  and other not ending in .sol.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.6621&r2=1.6622
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/libamf.all/gen_malformed_sol_tests.pl?cvsroot=gnash&r1=1.1&r2=1.2

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.6621
retrieving revision 1.6622
diff -u -b -r1.6621 -r1.6622
--- ChangeLog   16 May 2008 11:45:57 -0000      1.6621
+++ ChangeLog   16 May 2008 12:33:34 -0000      1.6622
@@ -1,5 +1,10 @@
 2008-05-16 Benjamin Wolsey <address@hidden>
 
+       * testsuite/libamf.all/gen_malformed_sol_tests.pl: skip directories
+         and other not ending in .sol.
+
+2008-05-16 Benjamin Wolsey <address@hidden>
+
        * testsuite/tmpSharedObjects/malformed: add 10 sol files that cause
          an abort in Gnash - std::logic_error exceptions (construction of
          std::string from NULL), so they result from earlier memory errors.

Index: testsuite/libamf.all/gen_malformed_sol_tests.pl
===================================================================
RCS file: /sources/gnash/gnash/testsuite/libamf.all/gen_malformed_sol_tests.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- testsuite/libamf.all/gen_malformed_sol_tests.pl     16 May 2008 09:34:41 
-0000      1.1
+++ testsuite/libamf.all/gen_malformed_sol_tests.pl     16 May 2008 12:33:37 
-0000      1.2
@@ -3,9 +3,6 @@
 # The script looks for files in ../tmpSharedObject/malformed, so you will have
 # to put your malformed files there or change where the script looks.
 #
-# The directory might be cleaned on 'make clean', so if you love your malformed
-# sol files, use a symlink.
-#
 # Use 'makeswf -v6 SOLrobustness.as -o SOLrobustness.swf' and run with Gnash.
 
 use strict;
@@ -20,7 +17,6 @@
 @filelist = readdir(DIR);
 closedir(DIR);
 
-
 open(OUTF, ">SOLrobustness.as");
 
 print OUTF <<EE;
@@ -34,13 +30,14 @@
 # ActionScript generation
 for $file (@filelist)
 {
-    if ($file !~ m/^\./)
-    {
+    # Skip hidden files, directories and anything that doesn't end in
+    # .sol
+    next if ($file =~ m/^\./ || $file !~ m/\.sol$/);
         $file =~ s/\.sol$//;
         print OUTF "so = SharedObject.getLocal(\"malformed/$file\", \"/\");\n";
         print OUTF "trace(so.getSize());\n";
         print OUTF "delete so;\n";
-    }
+
 }
 
 close(OUTF);