various little goofs

p4raw-id: //depot/perl@3202

1 files changed, 2 insertions, 2 deletions

diff --git a/installperl b/installperl
index 93b9947d94..ebb6f47f9d 100755
--- a/installperl
+++ b/installperl
@@ -173,7 +173,7 @@ elsif ($^O eq 'mpeix') {
 elsif ($^O ne 'dos') {
     safe_unlink("$installbin/$perl$ver$exe_ext");
     copy("perl$exe_ext", "$installbin/$perl$ver$exe_ext");
-    strip("$installbin/perl$ver$exe_ext") if $^O =~ /^(rhapsody)$;
+    strip("$installbin/perl$ver$exe_ext") if $^O =~ /^(rhapsody)$/;
     chmod(0755, "$installbin/$perl$ver$exe_ext");
 }
 else {
@@ -236,7 +236,7 @@ foreach my $file (@corefiles) {
     if (copy_if_diff($file,"$installarchlib/CORE/$file")) {
 	if ($file =~ /\.(so|\Q$dlext\E)$/) {
 	    chmod(0555, "$installarchlib/CORE/$file");
-	    strip("-S", "$installarchlib/CORE/$file") if $^O =~ /^(rhapsody)$;
+	    strip("-S", "$installarchlib/CORE/$file") if $^O =~ /^(rhapsody)$/;
 	} else {
 	    chmod(0444, "$installarchlib/CORE/$file");
 	}