diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-01 05:07:33 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-01 05:07:33 +0000 |
| commit | 2818b492e282c29331d9186dd83d3241ad8662b4 (patch) | |
| tree | 14bc42d7d909eec97292d6d4d69c1142e4efd67f /utils/cli/ledgersmb_cli.pl | |
| parent | 987e2a6ea588c1aa1bb48ca562742f42c7e9fe27 (diff) | |
Adding simple, stupid cli script sample to illustrate file syntax
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@447 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'utils/cli/ledgersmb_cli.pl')
| -rw-r--r-- | utils/cli/ledgersmb_cli.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/cli/ledgersmb_cli.pl b/utils/cli/ledgersmb_cli.pl index 1dbbf2fa..faf77abd 100644 --- a/utils/cli/ledgersmb_cli.pl +++ b/utils/cli/ledgersmb_cli.pl @@ -22,7 +22,7 @@ while ($line = <>){ } elsif ($line =~ /^\s*(.+)\s*=\s*(.+)/){ $form->{$1} = $2; } elsif ($line =~ /^\s*CALL (.+)/){ - &{$1}(\%$form); + {$1}(\%$form); } elsif ($line !~ /^\s*$/) { die "Parse error in script file: $line"; } |