}
  return $fh if defined(fileno $fh);
  # otherwise treat it as a file to open
  $fh = gensym;
  open($fh,$thing) || return;

# $Id: Xml.pm,v 1.23 2007/12/24 10:01:14 flazan Exp $
#
# Project       OpenPec
# file name:    Xml.pm
# package:      Opec::Xml

# $Id: opec.pl,v 1.28 2007/12/24 10:01:14 flazan Exp $
#
# Project       OpenPec
# file name:    opec
#

  if (!exists $_directory_cache{$dirname})
    {
      error "failed to open directory `$dirname'"
     unless opendir (DIR, $dirname);
      $_directory_cache{$dirname} = { map { $_ => 1 } readdir (DIR) };

sub EVT_POPUP_MENU($$) { $_[0]->Connect( -1, -1, &Wx::wxEVT_POPUP_MENU, $_[1] ) }
sub EVT_CONTEXT_MENU($$) { $_[0]->Connect( -1, -1, &Wx::wxEVT_CONTEXT_MENU, $_[1] ) }
sub EVT_MENU_OPEN($$) { $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_OPEN, $_[1] ) }
sub EVT_MENU_CLOSE($$) { $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_CLOSE, $_[1] ) }
#

  }
  # else i'm the child -- go spawn
  open(CLIENT,  "<&Client")   || die "can't dup client to stdin";
  open(CLOUT, ">&Client")   || die "can't dup client to stdout";
 ## open(STDERR, ">&STDOUT") || die "can't dup stdout to stderr";

sub cleanup_tmpfiles {
    local(@files);
    opendir(DIR, $TMPDIR);
    push(@files, grep(/^${FILE_PREFIX}.*\.${id}$/, readdir(DIR)));
    closedir(DIR);

# recursively down.
undef $/;
open (LOG, "cvs log|");
map {
  if (not m{/(CVSROOT|Attic)/}) {

    $pkgs{$n} = $v;
    $txt = "$n.txt";
    open (DESC, "> $txt");
    print DESC $i;
    close DESC;

  $self->{FileHandle} = new IO::File;
  if( -w $mp3_file || !$readonly)  {
    $self->{FileHandle}->open("+<${mp3_file}") or (warn("Can't open ${mp3_file}: $!") and return undef);
    $self->{readonly} = 0;
  } else {

$_ = <DATA>;
s/\@VERSION\@/$Test::AutoBuild::VERSION/g;
open SPEC, ">$ARGV[0]" or die "$!";
print SPEC $_;
close SPEC;

  if scalar @ARGV != 1;
my ($header) = @ARGV;
open (HEADER, "< $header")
  or die "$0: cannot open file $header";
my $in_struct = 0;

    $title_work = "$mp3_title_long *** $mp3_title_long";
    $artist_work = "$mp3_artist_long *** $mp3_artist_long";
    open LCD, ">/dev/lcd";
    print LCD "\33c";
    print LCD "\33h";

    }
    # Continue with DOCTYPE detection and cleanup.
    # Open $tmpfile for reading and $outfile for writing
    open TMP, $tmpfile
     or die "Could not open $tmpfile for reading: $!";

          $main::dbh->{RaiseError} = 0;
          while ($now->cmp($today) <= 0) {
               my $fh = $fp->open($now);
               if ($fh) {
                    my $count = 0;

# $Id: Bookmarks.pm,v 1.9 2007/06/14 08:58:28 flazan Exp $
#
# Project       OpenPec
# file name:    Bookmarks.pm
# package:      Opec::Bookmarks

}
my $fontdir = $fontpath . "/fonts.dir";
open (FONTD, "<$fontdir") ||
    die "Can't Open font dir file: $!";
my $strg = <FONTD>;

    #
    ${*$_RG_FHandle} || do {
     #print "Opening connection\n";
     $ipa = inet_aton( $_RG_IPAddr );
     $ipp = sockaddr_in( $_RG_Port, $ipa );

# $Id: SMTP.pm,v 1.11 2007/06/14 08:58:29 flazan Exp $
#
# Project       OpenPec
# file name:    SMTP.pm
# package:      Opec::Out::SMTP

  #
  # Show how to save a plot:
  # Open a new device, make it current, copy parameters,
  # and replay the plot buffer
  #

            }
            my $cmd = "p4 client -i";
            open P4CLIENT, "| $cmd 2>&1" or die "$cmd: $!";
            print P4CLIENT $client;
            close P4CLIENT;

     ");\n",
     "endfunction\n\n");
  "  return retval;\n}\n\n";          # Just close off the opening brace.
}
#

BEGIN 
{
        open(CONFIGFILE, "/etc/landb.conf");
        while(<CONFIGFILE>) {
                next unless (/^([^=]+)=(.*)$/);

#!/usr/bin/env perl
use OpenAFS::CMU_copyright;
use OpenAFS::util qw(:DEFAULT %AFS_Help);
use OpenAFS::afsconf;

#!/usr/bin/env perl
use OpenAFS::CMU_copyright;
use OpenAFS::util qw(:DEFAULT %AFS_Help);
use OpenAFS::afsconf;