/[bibulus]/bibulus/BibTeX/bib2xml
ViewVC logotype

Diff of /bibulus/BibTeX/bib2xml

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

revision 1.5 by twid, Sun Apr 6 20:18:47 2003 UTC revision 1.6 by twid, Wed Apr 16 22:03:42 2003 UTC
# Line 20  if (defined($opt{e})) { Line 20  if (defined($opt{e})) {
20    }    }
21  }  }
22    
23  # Get the filename.  Perhaps a more sofisticated approach would be nice?  # Get the filename.
24  my $filename = shift @ARGV;  my $filename = shift @ARGV;
25  $filename or die "Usage: $0 filename\n";  $filename or die "Usage: $0 filename\n";
26  unless (-e "$filename.bib") {  $filename =~ s/\.bib$//;
   $filename =~ s/\.bib$//;  
   -e "$filename.bib" or die "$filename.bib not found.\n";  
 }  
27    
28  # Don't bother dealing with existing files -- exit  # Don't bother dealing with existing files -- exit
29  # and let the user sort it out:  # and let the user sort it out:

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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