[svk-commit] r3057 - trunk/t

[nobody at bestpractical.com]

Author: clkao
Date: Mon Aug  4 12:13:57 2008
New Revision: 3057

Modified:
   trunk/t/12copy.t

Log:
fix bad regex in previous commit to test file.

Modified: trunk/t/12copy.t
==============================================================================
--- trunk/t/12copy.t	(original)
+++ trunk/t/12copy.t	Mon Aug  4 12:13:57 2008
@@ -192,9 +192,10 @@
 
 is_output($svk, 'copy', ["$copath/A", "$copath/B", "$copath/me"],
 	  [__"t/checkout/copy/me is not a directory."]);
-	  
+
+my $dir = __("mkdir t/checkout/copy/me-cocopied:");
 is_output($svk, 'copy', [-p => "$copath/me", "$copath/me-cocopied/fnord/orz"],
-	  [qr{@{[__("mkdir t/checkout/copy/me-cocopied:")]} File exists.*},
+	  [qr{\Q$dir\E File exists.*},
 	  ]);
 
 is_output($svk, 'copy', [-p => "$copath/me", "$copath/nonexist2/fnord2/me"],