Changeset 20824

Timestamp:

10/06/08 06:34:35 (5 years ago)

Author:

drry

Message:

• KCatch! KCatch'''
  

Files:

• lang/perl/misc/kcatch/KCatch.pm (modified) (4 diffs)

lang/perl/misc/kcatch/KCatch.pm

@@ -25 +25 @@
     use KCatch qw( [OPTIONS] );
 
-KCatch.pm would automatically detect whether running under CGI or not, 
+KCatch.pm would automatically detect whether running under CGI or not,
 when no options given. Available options are following:
 
@@ -60 +60 @@
     use KCatch qw( jcode=jis );
 
-Convert the charactor-code-set of the error infomations for Japanese.
+Convert the charactor-code-set of the error informations for Japanese.
 This option make work when "jcode.pl" is already required.
 Or Jcode=* option is also available with "Jcode.pm".
@@ -180 +180 @@
     # die "some string."   => can detect the line where error occured.
     # die "some string.\n" => cannot detect the line where...
-    $estr =~ s/(,)? at \(eval \d+\) line (\d+)(,? <DATA> line (\d+)(\.)?)?/$5||$1/e;
+    $estr =~ s/(,)? at \(eval \d+\) line (\d+)(?:,? <DATA> line \d+(\.)?)?/$3||$1/e;
     my $line = $2;
     my $called = [ @$imported ];
@@ -272 +272 @@
         $file =~ s#^.*[/\\]##;                  # En-short the filename
         chomp $mess;
-        my $eline = sprintf( "[%s:%s:%s] %s\n", 
+        my $eline = sprintf( "[%s:%s:%s] %s\n",
                     $file, ($line||"?"), $type, $mess );
         push( @$oarray, $eline );