/[psinib]/psinib.pl
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 /psinib.pl

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

revision 1.9 by dpavlin, Tue Jul 15 17:40:32 2003 UTC revision 1.10 by dpavlin, Tue Jul 15 17:41:45 2003 UTC
# Line 503  sub snap_share { Line 503  sub snap_share {
503          foreach my $f (sort { $file_md5{$a} cmp $file_md5{$b} } keys %file_md5) {          foreach my $f (sort { $file_md5{$a} cmp $file_md5{$b} } keys %file_md5) {
504                  my $dir = dirname($f);                  my $dir = dirname($f);
505                  my $file = basename($f);                  my $file = basename($f);
506  print "$f -- $dir / $file<--\n";  #print "$f -- $dir / $file<--\n";
507                  if ($dir ne $last_dir) {                  if ($dir ne $last_dir) {
508                          close($md5) if ($md5);                          close($md5) if ($md5);
509                          open($md5, ">> $bc/$dir/.md5sum") || warn "can't create $bc/$dir/.md5sum: $!";                          open($md5, ">> $bc/$dir/.md5sum") || warn "can't create $bc/$dir/.md5sum: $!";
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.26