/[wait]/cvs-head/lib/WAIT/Document/Ora.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /cvs-head/lib/WAIT/Document/Ora.pm

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

revision 71 by laperla, Fri Jan 25 07:27:30 2002 UTC revision 72 by laperla, Mon Jan 28 21:35:39 2002 UTC
# Line 28  sub TIEHASH { Line 28  sub TIEHASH {
28    
29    opendir(DIR, $dir) or croak "Could not open '$dir': $!";    opendir(DIR, $dir) or croak "Could not open '$dir': $!";
30   DIRENT: for my $entry (readdir DIR) {   DIRENT: for my $entry (readdir DIR) {
31        # next unless $entry =~ /nt/;
32      if (-f "$dir/$entry/desc.html") {      if (-f "$dir/$entry/desc.html") {
33        my $index = "$dir/$entry/index.html";        my $index = "$dir/$entry/index.html";
34        open F, $index or Carp::confess("Could not open $index: $!");        open F, $index or Carp::confess("Could not open $index: $!");
Legend:
Removed from v.71  
changed lines
  Added in v.72
  ViewVC Help
Powered by ViewVC 1.1.26