more m//s and $ vs \z fixups (from Greg Bacon)

p4raw-id: //depot/perl@5349

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm
index 8638bee210..e6cf786034 100644
--- a/lib/File/Copy.pm
+++ b/lib/File/Copy.pm
@@ -83,7 +83,7 @@ sub copy {
     if ($from_a_handle) {
 	*FROM = *$from{FILEHANDLE};
     } else {
-	$from = "./$from" if $from =~ /^\s/;
+	$from = "./$from" if $from =~ /^\s/s;
 	open(FROM, "< $from\0") or goto fail_open1;
 	binmode FROM or die "($!,$^E)";
 	$closefrom = 1;
@@ -92,7 +92,7 @@ sub copy {
     if ($to_a_handle) {
 	*TO = *$to{FILEHANDLE};
     } else {
-	$to = "./$to" if $to =~ /^\s/;
+	$to = "./$to" if $to =~ /^\s/s;
 	open(TO,"> $to\0") or goto fail_open2;
 	binmode TO or die "($!,$^E)";
 	$closeto = 1;