Perl doesn't work that well if you write JavaScript in it

git-svn-id: svn://10.0.0.236/trunk@214947 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
sayrer%gmail.com
2006-11-08 07:07:44 +00:00
parent d793c7b55d
commit a6c0d4e4ef

View File

@@ -10,14 +10,14 @@
# perl gen_template.pl -b 345876 -type xul
#
# sends a test case template for bug 345876 to stdout
use Switch;
use Getopt::Long;
GetOptions("b=i"=> \$bug_number,
"type:s"=> \$template_type);
if ($template_type == "xul") {
if ($template_type eq "xul") {
$template_type = "static/xul.template.txt";
} elsif ($template_type == "xhtml") {
} elsif ($template_type eq "xhtml") {
$template_type = "static/xhtml.template.txt";
} else {
$template_type = "static/test.template.txt";