Permalink
Browse files

MacOS patch from Paul J. Schinder

  • Loading branch information...
1 parent 2ecf1e0 commit f7f3f5408b1d7442c6555c221c331b57bce057ba @gisle committed Mar 19, 1999
Showing with 9 additions and 3 deletions.
  1. +9 −3 t/base/common-req.t
View
@@ -113,9 +113,15 @@ $r = POST 'http://www.perl.org/survey.cgi',
Content_type => 'multipart/form-data';
print $r->as_string;
-print "not " unless $r->content =~ /^--\S+\015\012Content-Disposition:\s*form-data;\s*name="file";\s*filename="xxx"/m and
- $r->content =~ /^Content-Type: text\/html/m and
- $r->content =~ /^<h1>Hello, world/m;
+if($^O eq "MacOS") {
+ print "not " unless $r->content =~ /^--\S+\015\012Content-Disposition:\s*form-data;\s*name="file";\s*filename="xxx"/m and
+ $r->content =~ /^\012Content-Type: text\/html/m and
+ $r->content =~ /^\012<h1>Hello, world/m;
+} else {
+ print "not " unless $r->content =~ /^--\S+\015\012Content-Disposition:\s*form-data;\s*name="file";\s*filename="xxx"/m and
+ $r->content =~ /^Content-Type: text\/html/m and
+ $r->content =~ /^<h1>Hello, world/m;
+}
print "ok 14\n";

0 comments on commit f7f3f54

Please sign in to comment.