Changeset 26770

Timestamp:

12/15/08 17:11:45 (4 years ago)

Author:

kazuho

Message:

adjust format

Location:

lang/perl/Text-MicroTemplate/trunk

Files:

• lib/Text/MicroTemplate.pm (modified) (1 diff)
• t/02-as_html.t (modified) (1 diff)

lang/perl/Text-MicroTemplate/trunk/lib/Text/MicroTemplate.pm

@@ -275 +275 @@
     
     join '', map {
-        0 < $_ && $_ <= @lines ? sprintf("%-4x: %s\n", $_, $lines[$_ - 1]) : ''
+        0 < $_ && $_ <= @lines ? sprintf("%4d: %s\n", $_, $lines[$_ - 1]) : ''
     } ($line - 2) .. ($line + 2);
 }

lang/perl/Text-MicroTemplate/trunk/t/02-as_html.t

@@ -22 +22 @@
     is $s, 0, 'die on access to nonexistent value';
     like $@, qr/ at line 1 .*$0 at line 19/;
-    print $@;
 };