Assimilate File::Spec 0.87

[perl5.git] / lib / File / Spec / t / Spec.t

diff --git a/lib/File/Spec/t/Spec.t b/lib/File/Spec/t/Spec.t
index 182daf1..1c2dd6a 100644 (file)
--- a/lib/File/Spec/t/Spec.t
+++ b/lib/File/Spec/t/Spec.t
@@ -224,7 +224,7 @@ if ($^O eq 'MacOS') {
 [ "Win32->canonpath('\\..\\')",         '\\'                  ],
 [ "Win32->canonpath('/../')",           '\\'                  ],
 [ "Win32->canonpath('/..\\')",          '\\'                  ],
-[ "Win32->can('_cwd')",                 qr/CODE/              ],
+[ "Win32->can('_cwd')",                 '/CODE/'              ],
 
 # FakeWin32 subclass (see below) just sets CWD to C:\one\two