Changeset 39dc159 for perlwrap.pm


Ignore:
Timestamp:
Mar 1, 2007, 1:52:22 AM (14 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlwrap.pm

    rcc5b906 r39dc159  
    441441        die $@ if $@;
    442442        package BarnOwl;
     443        if(*BarnOwl::format_msg{CODE}) {
     444            # if the config defines a legacy formatting function, add 'perl' as a style
     445            BarnOwl::_create_style("perl", "BarnOwl::_format_msg_legacy_wrap",
     446                                   "User-defined perl style that calls BarnOwl::format_msg"
     447                                   . " with legacy global variable support");
     448            BarnOwl::set("-q default_style perl");
     449        }
    443450    }
    444451}
Note: See TracChangeset for help on using the changeset viewer.