/[papo]/papo/neb/neb.pl
ViewVC logotype

Diff of /papo/neb/neb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by jlenton, Wed Apr 9 15:29:14 2003 UTC revision 1.4 by jlenton, Wed Apr 9 23:52:49 2003 UTC
# Line 2  Line 2 
2  use lib "$ENV{HOME}/public_perl/";  use lib "$ENV{HOME}/public_perl/";
3  use strict;  use strict;
4  use English;  use English;
5  use Carp qw(cluck);  use Carp qw(cluck confess);
6  use Data::Dumper;  use Data::Dumper;
7  use Getopt::Long;  use Getopt::Long;
8  use neb;  use neb;
9    
10  BEGIN { our $DEBUG = 0; }  BEGIN { our $DEBUG = 0; }
11  #BEGIN { $SIG{'__WARN__'} = sub { cluck @_; } }  #BEGIN { $SIG{'__WARN__'} = sub { cluck @_; } }
12    #BEGIN { $SIG{'__DIE__'} = sub { confess @_; } }
13    
14  my $exec = 1;  my $exec = 1;
15  my $tree = 0;  my $tree = 0;
# Line 23  GetOptions('exec!' => \$exec, Line 24  GetOptions('exec!' => \$exec,
24    
25  foreach my $file (@ARGV)  foreach my $file (@ARGV)
26  {  {
27      my $neb = neb->new($file);      my $neb = neb->new($file, '/');
28    
29      if ($tree)      if ($tree)
30      {      {

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26