sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use system()

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-01-22 09:49:20 -07:00
1 parent 02335e0f31
commit df7aeaab44
1 file changed
+5 -5
Download Patch File Download Diff File Expand all files Collapse all files
install
+5 -5
View File
@@ -98,19 +98,19 @@ modfind("Class::Unload");
println "\0"; println "\0";
println "Building....."; println "Building.....";
unless (-d "$Bin/build") { unless (-d "$Bin/build") {
`mkdir $Bin/build`; system("mkdir $Bin/build");
} }
unless (-e "$Bin/build/time") { unless (-e "$Bin/build/time") {
`touch $Bin/build/time`; system("touch $Bin/build/time");
} }
unless (-e "$Bin/build/os") { unless (-e "$Bin/build/os") {
`touch $Bin/build/os`; system("touch $Bin/build/os");
} }
unless (-e "$Bin/build/perl") { unless (-e "$Bin/build/perl") {
`touch $Bin/build/perl`; system("touch $Bin/build/perl");
} }
unless (-e "$Bin/build/ver") { unless (-e "$Bin/build/ver") {
`touch $Bin/build/ver`; system("touch $Bin/build/ver");
} }
open FTIME, ">$Bin/build/time" or println "Failed to install." and exit; open FTIME, ">$Bin/build/time" or println "Failed to install." and exit;