Shebangs voor syntax highlighting

plugins/deposit

@@ -1,3 +1,5 @@
+#!perl
+
 # This plugin must at the end in the plugins file.
 
 HELP "deposit [<amount>]" => "[Create and] deposit into an account";

plugins/give

@@ -1,3 +1,5 @@
+#!perl
+
 HELP "give [<account> [<amount>]]" => "Transfer money to user's account";
 
 sub command :Tab(give) {

plugins/help

@@ -1,3 +1,5 @@
+#!perl
+
 HELP "help" => "The stuff you're looking at right now :)";
 
 use List::Util qw(max);

plugins/log

@@ -1,3 +1,5 @@
+#!perl
+
 sub command { NEXT }
 
 my $filename = ".revbank.log";

plugins/products

@@ -1,3 +1,5 @@
+#!perl
+
 HELP "<productID>" => "Look up products from database";
 HELP "edit" => "Edit product list";
 

plugins/restart

@@ -1,3 +1,5 @@
+#!perl
+
 HELP "restart" => "Attempt to restart the RevBank shell";
 
 sub command :Tab(restart) {

plugins/sigint

@@ -1,3 +1,5 @@
+#!perl
+
 sub command { NEXT }
 
 $SIG{INT} = 'IGNORE';

plugins/take

@@ -1,3 +1,5 @@
+#!perl
+
 HELP "take [<accounts> [<amount>]]" => "Take money from users (equal parts)";
 
 sub command :Tab(take,steal) {

plugins/undo

@@ -1,3 +1,5 @@
+#!perl
+
 HELP "undo [<id>]" => "Undo a certain transaction";
 
 my $filename = ".revbank.undo";

plugins/users

@@ -1,3 +1,5 @@
+#!perl
+
 HELP "<account>" => "[Pay with your account and] show balance";
 HELP "list" => "List accounts and balances";
 HELP "shame" => "Display Hall of Shame (negative balances)";

plugins/withdraw

@@ -1,3 +1,5 @@
+#!perl
+
 HELP "<amount>" => "Withdraw or enter price manually";
 
 sub command {