[Templates-svn] r1062 - trunk/t

[svn@template-toolkit.org]

Author: abw
Date: 2007-04-27 14:18:43 +0100 (Fri, 27 Apr 2007)
New Revision: 1062

Modified:
   trunk/t/fileline.t
Log:
applied fix to fileline.t to switch slashes on Win32

Modified: trunk/t/fileline.t
===================================================================
--- trunk/t/fileline.t	2007-04-27 12:22:39 UTC (rev 1061)
+++ trunk/t/fileline.t	2007-04-27 13:18:43 UTC (rev 1062)
@@ -13,12 +13,12 @@
 #
 #========================================================================
 
-BEGIN {
-    if ( $^O eq 'MSWin32' ) {
-        print "1..0 # Skip Temporarily skipping on Win32\n";
-        exit(0);
-    }
-}
+#BEGIN {
+#    if ( $^O eq 'MSWin32' ) {
+#        print "1..0 # Skip Temporarily skipping on Win32\n";
+#        exit(0);
+#    }
+#}
 
 use strict;
 use warnings;
@@ -51,6 +51,9 @@
         # Thanks to Andreas Koenig for identifying the problem.
         # http://rt.cpan.org/Public/Bug/Display.html?id=20807
         $file =~ s/eval\s+\d+/eval/;
+
+        # handle backslashes on Win32 by converting them to forward slashes
+        $file =~ s!\\!/!g if $^O eq 'MSWin32';
         return $file;
     },
     line => sub {