Changeset 39dc159 for perlwrap.pm

Timestamp:

Mar 1, 2007, 1:52:22 AM (17 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

95caa16

Parents:

2d1feac

git-author:

Nelson Elhage <nelhage@mit.edu> (03/01/07 01:51:51)

git-committer:

Nelson Elhage <nelhage@mit.edu> (03/01/07 01:52:22)

Message:

Move handling of the legacy owl::format_msg into perl. It now works
again.

File:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -441 +441 @@
         die $@ if $@;
         package BarnOwl;
+        if(*BarnOwl::format_msg{CODE}) {
+            # if the config defines a legacy formatting function, add 'perl' as a style 
+            BarnOwl::_create_style("perl", "BarnOwl::_format_msg_legacy_wrap",
+                                   "User-defined perl style that calls BarnOwl::format_msg"
+                                   . " with legacy global variable support");
+            BarnOwl::set("-q default_style perl");
+        }
     }
 }