source: branches/stable/lib/macro.head

Last change on this file was 8592, checked in by westram, 7 years ago
  • use strict + warnings
  • declare variables
  • use await_error (get_error fails)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 192 bytes
Line 
1#!/usr/bin/perl
2use strict;
3use warnings;
4
5use lib "$ENV{'ARBHOME'}/lib/";
6use ARB;
7
8my $gb_main = ARB::open(":","r");
9if (not $gb_main) {
10  my $error = ARB::await_error();
11  die "$error";
12}
13
Note: See TracBrowser for help on using the repository browser.