diff options
| author | Renato Botelho <garga@FreeBSD.org> | 2005-07-19 12:17:18 +0000 |
|---|---|---|
| committer | Renato Botelho <garga@FreeBSD.org> | 2005-07-19 12:17:18 +0000 |
| commit | eeb0735e7bde98700ed5397378e6d2cd060f4090 (patch) | |
| tree | 76c4cf448d6b7c910949f2700cfe660bb17ece53 /sysutils/magicrescue/files | |
| parent | cdd41104c44e98ccc4dfbad1b83b61352f89df11 (diff) | |
| download | ports-eeb0735e7bde98700ed5397378e6d2cd060f4090.tar.gz ports-eeb0735e7bde98700ed5397378e6d2cd060f4090.zip | |
Notes
Diffstat (limited to 'sysutils/magicrescue/files')
| -rw-r--r-- | sysutils/magicrescue/files/patch-magicsort | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/sysutils/magicrescue/files/patch-magicsort b/sysutils/magicrescue/files/patch-magicsort new file mode 100644 index 000000000000..dff60005d0c6 --- /dev/null +++ b/sysutils/magicrescue/files/patch-magicsort @@ -0,0 +1,20 @@ +--- magicsort.orig Mon Jul 18 11:55:35 2005 ++++ magicsort Mon Jul 18 12:03:01 2005 +@@ -13,7 +13,7 @@ + while (defined(my $file = readdir DH)) { + next unless -f $file; + +- open FILE, "-|", "file", $file or die "Executing file: $!\n"; ++ open(FILE, 'file '.$file.'|') or die "Executing file: $!\n"; + my $idstring = <FILE>; + close FILE; + +@@ -25,7 +25,7 @@ + next; + } + my $dir = substr($idstring, length($file) + 2); +- mkdir $dir; ++ mkdir $dir,0755; + rename $file, "$dir/$file" or warn "Cannot move $file: $!\n"; + } + |