*** empty log message ***

diff --git a/tests/ls-2/Fetish.pm b/tests/ls-2/Fetish.pm
index ee0207d1e07867b91b1f05aaf869c4f69265fdab..d20640924be49160a8c05c45fe1a5dad124e6e2b 100644 (file)
--- a/tests/ls-2/Fetish.pm
+++ b/tests/ls-2/Fetish.pm
@@ -1,4 +1,4 @@
-package T;
+package Fetish;
 
 require 5.003;
 use strict;
@@ -8,7 +8,7 @@ use FileHandle;
 use File::Compare qw(compare);
 
 @ISA = qw(Exporter);
-($VERSION = '$Revision: 1.1 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.2 $ ') =~ tr/[0-9].//cd;
 @EXPORT = qw (run_tests);
 
 my @Types = qw (IN OUT ERR EXIT);
@@ -45,6 +45,13 @@ my %Zero_one_type = map {$_ => 1} qw (OUT ERR EXIT);
 
 my $Global_count = 1;
 
+sub _shell_quote ($)
+{
+  my ($string) = @_;
+  $string =~ s/\'/\'\\\'\'/g;
+  return "'$string'";
+}
+
 sub _create_file ($$$$$)
 {
   my ($program_name, $test_name, $type, $file_name, $data) = @_;
@@ -169,7 +176,7 @@ sub run_tests ($$$$$)
                                   $file_name, $contents);
          if ($type eq 'IN')
            {
-             push @args, $file
+             push @args, _shell_quote $file;
            }
          else
            {