From 0d342f0aee3f2f800e486c0051dabe718a7b2841 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 23 Mar 2011 11:14:27 +0100
Subject: I don't like nxhtml
---
emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl | 95 -----------------------
1 file changed, 95 deletions(-)
delete mode 100644 emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl
(limited to 'emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl')
diff --git a/emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl b/emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl
deleted file mode 100644
index 562e695..0000000
--- a/emacs.d/nxhtml/tests/in/bug495770-heredoc_demo.pl
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/usr/bin/perl
-# heredoc_demo.pl doom@kzsu.stanford.edu
-# December 10, 2009
-
-use warnings;
-use strict;
-$|=1;
-use Data::Dumper;
-
-use File::Path qw( mkpath );
-use File::Basename qw( fileparse basename dirname );
-use File::Copy qw( copy move );
-use Fatal qw( open close mkpath copy move );
-use Cwd qw( cwd abs_path );
-
-use Env qw(HOME);
-
-our $VERSION = 0.01;
-my $prog = basename($0);
-
-use Getopt::Std;
-my %opt = ();
-getopts('d', \%opt);
-my $DEBUG = $opt{d} || 1; # TODO set default to 0 when in production
-
-my ($title, $incantation, $god);
-
-my $skull=<<"END_SQL";
- SELECT id, god, incantation
- FROM spell, pantheon
- WHERE pantheon.id = spell.pantheon AND
- pantheon.name = 'lovecraft'
-END_SQL
-
-my $phfftp=<<"END_HTML";
-$title
-
-$title
-Speak not the dread words of $incantation
-lest ye invoke the $god.
-
-END_HTML
-
-print $skull, "\n";
-print $phfftp, "\n";
-
-__END__
-
-=head1 NAME
-
-heredoc_demo.pl - (( TODO insert brief description ))
-
-=head1 SYNOPSIS
-
- heredoc_demo.pl -[options] [arguments]
-
- Options:
- -d debug
-
-=head1 OPTIONS
-
-=over 8
-
-=item B<-d>
-
-Turn on debug messages.
-
-=back
-
-=head1 DESCRIPTION
-
-B is a script which
-
-(( TODO insert explaination
- This is stub documentation created by template.el. ))
-
-=head1 AUTHOR
-
-Joseph Brenner, Edoom@kzsu.stanford.eduE
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (C) 2009 by Joseph Brenner
-
-This program is free software; you can redistribute it and/or modify it
-under the terms of either: the GNU General Public License as published
-by the Free Software Foundation; or the Artistic License.
-
-See http://dev.perl.org/licenses/ for more information.
-
-=head1 BUGS
-
-None reported... yet.
-
-=cut
--
cgit v1.2.3-54-g00ecf