if (my $tmpl_name = $arg->{template}) {
        require MT::Template;
        my $tmpl = MT::Template->load({ identifier => $tmpl_name,
                type => 'index', blog_id => $blog_id })
            || MT::Template->load({ name => $tmpl_name,

Index: /branches/slapshot/lib/MT/CMS/Template.pm
===================================================================
--- /branches/slapshot/lib/MT/CMS/Template.pm (revision 3798)
+++ /branches/slapshot/lib/MT/CMS/Template.pm (revision 4008)
@@ -33,5 +33,5 @@

diff -x .svn -r old/mt/mt-static/themes-base/blog.css dev/mt/mt-static/themes-base/blog.css
32c32
< } 
---
> }

name: MyPlugin build_file test
id: MyPlugin
key: MyPlugin
version: 0.1

name: MyPlugin build_file test
id: MyPlugin
key: MyPlugin
version: 0.1

# $Id: Portfile 30257 2007-10-23 02:28:30Z jmpp@macports.org $

PortSystem 1.0

name                        dokuwiki

my @normalized;
foreach my $tag ($obj->tags) {
    next if $tag->is_private;
    push(@normalized, $tag->normalize);
}

my @normalized;
foreach my $tag ($obj->tags) {
    next if $tag->is_private;
    push(@normalized, $tag->normalize);
}

### At the very top of the file add this
case "$-" in
*i*) VERBOSE=1; ;;
*)          ;;
esac

When  executing  interactively,  bash  displays the primary prompt PS1 when it is ready to read a command, and the secondary prompt PS2 when it needs more input to complete a
command.  Bash allows these prompt strings to be customized by inserting a number of backslash-escaped special characters that are decoded as follows:
       \a     an ASCII bell character (07)
       \d     the date in "Weekday Month Date" format (e.g., "Tue May 26")
       \D{format}

# Redirect old changelogs/release notes to their new locations
Redirect permanent /documentation/appendices/release-notes-4-0.html http://movabletype.org/documentation/appendices/release-notes/40.html
Redirect permanent /documentation/community/release-notes.html http://movabletype.org/documentation/appendices/release-notes/community-10.html
Redirect permanent /documentation/appendices/release-notes.html http://movabletype.org/documentation/appendices/release-notes/42.html
Redirect permanent /documentation/appendices/release-notes-4-1.html http://movabletype.org/documentation/appendices/release-notes/41.html

WARNING: key 'strip_html' is deprecated in /Users/jay/Sites/mt.local/html/sockfish/mt/sphinx/sphinx.conf line 4; use 'html_strip (per-index)' instead.
WARNING: key 'index_html_attrs' is deprecated in /Users/jay/Sites/mt.local/html/sockfish/mt/sphinx/sphinx.conf line 5; use 'html_index_attrs (per-index)' instead.
WARNING: key 'sql_group_column' is deprecated in /Users/jay/Sites/mt.local/html/sockfish/mt/sphinx/sphinx.conf line 16; use 'sql_attr_uint' instead.
WARNING: key 'sql_date_column' is deprecated in /Users/jay/Sites/mt.local/html/sockfish/mt/sphinx/sphinx.conf line 21; use 'sql_attr_timestamp' instead.
WARNING: key 'sql_date_column' is deprecated in /Users/jay/Sites/mt.local/html/sockfish/mt/sphinx/sphinx.conf line 23; use 'sql_attr_timestamp' instead.

drwxrwxr-x 8 j j   4096 Jun 22  2008 .
drwxrwxr-x 3 j j  20480 Feb  1  2008 ..
drwxrwxr-x 7 j j   4096 Feb  1  2008 Crypto
-rw-rw-r-- 1 j j    928 Jun 22  2008 easy-install.pth
drwxrwxr-x 2 j j   4096 Feb  1  2008 elementtree

OUTPUT from script http://pastie.textmate.org/408010

INITIAL TAG_EXPR: a
            9mm film            
             #1 team >> SKIPPING TAG <<

#!/usr/bin/perl

#########################################################################
package Tag;
use strict;