The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# ====================================================================
#    Licensed to the Apache Software Foundation (ASF) under one
#    or more contributor license agreements.  See the NOTICE file
#    distributed with this work for additional information
#    regarding copyright ownership.  The ASF licenses this file
#    to you under the Apache License, Version 2.0 (the
#    "License"); you may not use this file except in compliance
#    with the License.  You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0
#
#    Unless required by applicable law or agreed to in writing,
#    software distributed under the License is distributed on an
#    "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
#    KIND, either express or implied.  See the License for the
#    specific language governing permissions and limitations
#    under the License.
# ====================================================================

require 'test/unit/util/backtracefilter'

module Test
  module Unit
    module Util
      module BacktraceFilter
        TEST_UNIT_EXT_PREFIX = File.dirname(__FILE__)

        alias_method :original_filter_backtrace, :filter_backtrace
        def filter_backtrace(backtrace, prefix=nil)
          original_result = original_filter_backtrace(backtrace, prefix)
          original_filter_backtrace(original_result, TEST_UNIT_EXT_PREFIX)
        end
      end
    end
  end
end