diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-02 23:00:55 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-02 23:00:55 +0000 |
| commit | 23c2666825f6d4396328e332025722d15959b207 (patch) | |
| tree | 83183b2331319920df9ecfbaceaeab4bf8d23c65 /lib/File/Compare.t | |
| parent | 86c51f8bbb17f979b059356f4b0e5f938b96838e (diff) | |
| download | perl-23c2666825f6d4396328e332025722d15959b207.tar.gz | |
Replace ^M by a space in test for bug #37716, to make
Cygwin happy (found by Yitzchak)
p4raw-id: //depot/perl@26245
Diffstat (limited to 'lib/File/Compare.t')
| -rw-r--r-- | lib/File/Compare.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/File/Compare.t b/lib/File/Compare.t index c52d87303a..504c78998b 100644 --- a/lib/File/Compare.t +++ b/lib/File/Compare.t @@ -78,7 +78,8 @@ eval { my $template = File::Spec->catfile(File::Spec->tmpdir, 'fcmpXXXX'); my($tfh,$filename) = mkstemp($template); - open my $tfhCR, ">", "$filename\cM" + # NB. The trailing space is intentional (see [perl #37716]) + open my $tfhCR, ">", "$filename " or die "Could no open '$filename^M' for writing: $!"; { local $/; #slurp @@ -95,8 +96,8 @@ eval { $donetests[0] = compare($tfh, 'README'); $donetests[1] = compare($filename, 'README'); unlink0($tfh,$filename); - $donetests[2] = compare('README', "$filename\cM"); - unlink "$filename\cM"; + $donetests[2] = compare('README', "$filename "); + unlink "$filename "; }; print "# problem '$@' when testing with a temporary file\n" if $@; |